home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
os_2
/
clisp.zip
/
COMPILER.FAS
< prev
next >
Wrap
Text File
|
1994-02-05
|
266KB
|
4,100 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
(COMPILER COMPILE COMPILE-FILE DISASSEMBLE)
)
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 01 D5 67 01 37 03 30 B7 0F 01 19 01) COMPILER *FEATURES*)
#Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "COMPILER")
#Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D5 37 01 30 D8 19 01)
(FUNCTION-NAME-P PARSE-BODY MAKE-LOAD-TIME-EVAL CLOSURE-NAME CLOSURE-CODEVEC CLOSURE-CONSTS
FIXNUMP SHORT-FLOAT-P SINGLE-FLOAT-P DOUBLE-FLOAT-P LONG-FLOAT-P SEARCH-FILE *DATE-FORMAT*
%FUNTABREF INLINABLE *COMPILING* *COMPILING-FROM-FILE* *INLINE-FUNCTIONS* *VENV* *FENV* *BENV*
*GENV* *DENV* *TOPLEVEL-DENV* C-PROCLAIM C-PROCLAIM-CONSTANT C-DEFUN C-PROVIDE C-REQUIRE
))
#Y(#:TOP-LEVEL-FORM-6 #13Y(00 00 00 00 00 01 D5 37 01 30 D8 19 01) (VERSION SUBR-INFO))
#Y(#:TOP-LEVEL-FORM-7
#28Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 6D CB 31 75 C0 19 01)
*KEYWORD-PACKAGE* "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT *KEYWORD-PACKAGE* (FIND-PACKAGE #1="KEYWORD")) WARN #1#
)
#Y(#:TOP-LEVEL-FORM-8
#28Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 6D CB 31 75 C0 19 01)
*LISP-PACKAGE* "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT *LISP-PACKAGE* (FIND-PACKAGE #1="LISP")) WARN #1#
)
#Y(#:TOP-LEVEL-FORM-9 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
(SPECIAL *COMPILING*) *COMPILING*
)
#Y(#:TOP-LEVEL-FORM-10 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 60 30 53 C1 19 01)
(SPECIAL *COMPILE-WARNINGS*) *COMPILE-WARNINGS*
)
#Y(#:TOP-LEVEL-FORM-11 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 60 30 53 C1 19 01)
(SPECIAL *COMPILE-VERBOSE*) *COMPILE-VERBOSE*
)
#Y(#:TOP-LEVEL-FORM-12 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *COMPILING-FROM-FILE*)
*COMPILING-FROM-FILE*
)
#Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *C-LISTING-OUTPUT*)
*C-LISTING-OUTPUT*
)
#Y(#:TOP-LEVEL-FORM-14 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *C-ERROR-OUTPUT*)
*C-ERROR-OUTPUT*
)
#Y(#:TOP-LEVEL-FORM-15 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *KNOWN-SPECIAL-VARS*)
*KNOWN-SPECIAL-VARS*
)
#Y(#:TOP-LEVEL-FORM-16 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CONSTANT-SPECIAL-VARS*)
*CONSTANT-SPECIAL-VARS*
)
#Y(#:TOP-LEVEL-FORM-17 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
(SPECIAL *FASOUTPUT-STREAM*) *FASOUTPUT-STREAM*
)
#Y(#:TOP-LEVEL-FORM-18 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
(SPECIAL *LIBOUTPUT-STREAM*) *LIBOUTPUT-STREAM*
)
#Y(#:TOP-LEVEL-FORM-19 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
(SPECIAL *FUNCTIONS-WITH-ERRORS*) *FUNCTIONS-WITH-ERRORS*
)
#Y(#:TOP-LEVEL-FORM-20 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *KNOWN-FUNCTIONS*)
*KNOWN-FUNCTIONS*
)
#Y(#:TOP-LEVEL-FORM-21 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *UNKNOWN-FUNCTIONS*)
*UNKNOWN-FUNCTIONS*
)
#Y(#:TOP-LEVEL-FORM-22 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *UNKNOWN-FREE-VARS*)
*UNKNOWN-FREE-VARS*
)
#Y(#:TOP-LEVEL-FORM-23 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *INLINE-FUNCTIONS*)
*INLINE-FUNCTIONS*
)
#Y(#:TOP-LEVEL-FORM-24 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *NOTINLINE-FUNCTIONS*)
*NOTINLINE-FUNCTIONS*
)
#Y(#:TOP-LEVEL-FORM-25 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *INLINE-DEFINITIONS*)
*INLINE-DEFINITIONS*
)
#Y(#:TOP-LEVEL-FORM-26 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *USER-DECLARATION-TYPES*)
*USER-DECLARATION-TYPES*
)
#Y(#:TOP-LEVEL-FORM-27 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *COMPILED-MODULES*)
*COMPILED-MODULES*
)
#Y(#:TOP-LEVEL-FORM-28 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *PACKAGE-TASKS*)
*PACKAGE-TASKS*
)
#Y(#:TOP-LEVEL-FORM-29-1 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 3D 19 01)
%RECORD-REF SETF-EXPANDER %RECORD-STORE SETF %SET-DOCUMENTATION
)
#Y(#:TOP-LEVEL-FORM-29-2 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 3D 19 01)
CLOSURE-NAME SETF-EXPANDER -1.
#Y(SETF-CLOSURE-NAME #17Y(02 00 00 00 00 03 9A 57 74 D5 A8 D6 AC 5C 04 19 04) %RECORD-STORE 0.)
SETF %SET-DOCUMENTATION
)
#Y(#:TOP-LEVEL-FORM-29-3 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-CLOSURE
REMOVE-OLD-DEFINITIONS
#Y(MAKE-CLOSURE #25Y(00 00 00 00 80 1B 03 00 00 00 3C 03 3C 02 3C 01 AA AA 6E 32 AA 31 33 19 04)
:NAME :CODEVEC :CONSTS
) )
#Y(#:TOP-LEVEL-FORM-30
#26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
INSTRUCTION-TABLE "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT INSTRUCTION-TABLE
'#1=#((NIL O) (PUSH-NIL N) (T O) (CONST K) (LOAD K) (LOADI NN) (LOADC NN) (LOADV NN)
(LOADIC NNN) (STORE K) (STOREI NN) (STOREC NN) (STOREV NN) (STOREIC NNN) (GETVALUE N)
(SETVALUE N) (BIND N) (UNBIND1 O) (UNBIND N) (PROGV O) (PUSH O) (POP O) (SKIP N)
(SKIPI NN) (SKIPSP N) (SKIP&RET N) (JMP L) (JMPIF L) (JMPIFNOT L) (JMPIF1 L)
(JMPIFNOT1 L) (JMPIFATOM L) (JMPIFCONSP L) (JMPIFEQ L) (JMPIFNOTEQ L) (JMPIFEQTO NL)
(JMPIFNOTEQTO NL) (JMPHASH NHL) (JMPHASHV NHL) (JSR L) (JMPTAIL NNL) (VENV O)
(MAKE-VECTOR1&PUSH N) (COPY-CLOSURE NN) (CALL NN) (CALL0 N) (CALL1 N) (CALL2 N)
(CALLS1 B) (CALLS2 B) (CALLSR NB) (CALLC O) (CALLCKEY O) (FUNCALL N) (APPLY N)
(PUSH-UNBOUND N) (UNLIST NN) (UNLIST* NN) (JMPIFBOUNDP NL) (BOUNDP N) (UNBOUND->NIL N)
(VALUES0 O) (VALUES1 O) (STACK-TO-MV N) (MV-TO-STACK O) (NV-TO-STACK N) (MV-TO-LIST O)
(LIST-TO-MV O) (MVCALLP O) (MVCALL O) (BLOCK-OPEN NL) (BLOCK-CLOSE O) (RETURN-FROM N)
(TAGBODY-OPEN NLX) (TAGBODY-CLOSE-NIL O) (TAGBODY-CLOSE O) (GO NN) (CATCH-OPEN L)
(CATCH-CLOSE O) (THROW O) (UNWIND-PROTECT-OPEN L) (UNWIND-PROTECT-NORMAL-EXIT O)
(UNWIND-PROTECT-CLOSE O) (UNWIND-PROTECT-CLEANUP O) (NOT O) (EQ O) (CAR O) (CDR O)
(CONS O) (SYMBOL-FUNCTION O) (SVREF O) (SVSET O) (LIST N) (LIST* N) (ERROR N)
(NIL&PUSH O) (T&PUSH O) (CONST&PUSH K) (LOAD&PUSH K) (LOADI&PUSH NN) (LOADC&PUSH NN)
(LOADV&PUSH NN) (POP&STORE N) (GETVALUE&PUSH N) (JSR&PUSH L) (COPY-CLOSURE&PUSH NN)
(CALL&PUSH NN) (CALL1&PUSH N) (CALL2&PUSH N) (CALLS1&PUSH B) (CALLS2&PUSH B)
(CALLSR&PUSH NB) (CALLC&PUSH O) (CALLCKEY&PUSH O) (FUNCALL&PUSH N) (APPLY&PUSH N)
(CAR&PUSH O) (CDR&PUSH O) (CONS&PUSH O) (LIST&PUSH N) (LIST*&PUSH N) (NIL&STORE N)
(T&STORE N) (LOAD&STOREC NNN) (CALLS1&STORE BN) (CALLS2&STORE BN) (CALLSR&STORE NBN)
(LOAD&CDR&STORE N) (LOAD&CONS&STORE N) (LOAD&INC&STORE N) (LOAD&DEC&STORE N)
(LOAD&CAR&STORE NN) (CALL1&JMPIF NL) (CALL1&JMPIFNOT NL) (CALL2&JMPIF NL)
(CALL2&JMPIFNOT NL) (CALLS1&JMPIF BL) (CALLS1&JMPIFNOT BL) (CALLS2&JMPIF BL)
(CALLS2&JMPIFNOT BL) (CALLSR&JMPIF NBL) (CALLSR&JMPIFNOT NBL) (LOAD&JMPIF NL)
(LOAD&JMPIFNOT NL) (LOAD&CAR&PUSH N) (LOAD&CDR&PUSH N) (LOAD&INC&PUSH N)
(LOAD&DEC&PUSH N) (CONST&SYMBOL-FUNCTION N) (CONST&SYMBOL-FUNCTION&PUSH N)
(CONST&SYMBOL-FUNCTION&STORE NN) (APPLY&SKIP&RET NN)
) )
WARN #1#
)
#Y(#:TOP-LEVEL-FORM-31
#34Y(00 00 00 00 00 01 D5 D6 6E 41 1A 0D D6 9A 5A 74 A7 D7 AB 31 7A 16 01 81 01 A8 A8 8D 01 30
6D 00 19 03
)
0. #.INSTRUCTION-TABLE INSTRUCTION
)
#Y(#:TOP-LEVEL-FORM-32
#58Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 DA DB 6E 41
1A 0D DB 9A 5A 74 A7 AB AB 30 65 16 01 81 01 A8 A8 8D 01 30 6D 16 02 31 75 C0 19 01
)
INSTRUCTION-CODES "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT INSTRUCTION-CODES
(LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
(DOTIMES (I (LENGTH INSTRUCTION-TABLE))
(SETF (GETHASH (FIRST (SVREF INSTRUCTION-TABLE I)) HASHTABLE) I)
)
HASHTABLE
))
WARN #.#'EQ 0. #.INSTRUCTION-TABLE
)
#Y(#:TOP-LEVEL-FORM-33
#26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
INSTRUCTION-TABLE-K "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT INSTRUCTION-TABLE-K '#1=#(LOAD LOAD&PUSH CONST CONST&PUSH STORE)) WARN #1#
)
#Y(#:TOP-LEVEL-FORM-34
#26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
SHORT-CODE-BASE "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT SHORT-CODE-BASE 152.) WARN 152.
)
#Y(#:TOP-LEVEL-FORM-35
#26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
SHORT-CODE-OPSIZE "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT SHORT-CODE-OPSIZE '#1=#(15. 25. 21. 33. 10.)) WARN #1#
)
#Y(#:TOP-LEVEL-FORM-36
#26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
SHORT-CODE-OPS "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT SHORT-CODE-OPS '#1=#(152. 167. 192. 213. 246.)) WARN #1#
)
#Y(#:TOP-LEVEL-FORM-37
#57Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 DA 1A 0F A7
6D 00 8F 00 05 14 AA AA 30 65 16 01 81 00 A7 DB 8D 01 30 6B 16 01 31 75 C0 19 01
)
FUNCTION-CODES "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT FUNCTION-CODES
(LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
(DOTIMES (I (* 3. 256.))
(LET ((SYM (%FUNTABREF I))) (WHEN SYM (SETF (GETHASH SYM HASHTABLE) I)))
)
HASHTABLE
))
WARN #.#'EQ 0. 768.
)
#Y(#:TOP-LEVEL-FORM-38
#58Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 1A 14 9D 16 06 1A 18 A7 6D
00 A7 30 01 41 04 8E 00 70 16 05 81 00 A7 DA 8D 01 30 6B 00 16 01 14 31 75 C0 19 01
)
FUNTABR-INDEX "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT FUNTABR-INDEX
(DOTIMES (I (* 3. 256.))
(LET ((SYM (%FUNTABREF I)))
(MULTIPLE-VALUE-BIND (NAME REQ OPT REST-P) (SUBR-INFO SYM) (DECLARE (IGNORE NAME REQ OPT))
(WHEN REST-P (RETURN I))
))))
WARN 0. 768.
)
#Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CALLS-CODE
REMOVE-OLD-DEFINITIONS
#Y(CALLS-CODE
#27Y(01 00 00 00 00 02 A8 D5 8C 01 2D 0B D7 D8 AA 32 02 33 14 5C 02 19 02 D6 9A 1A 77) 256.
CALLS1 CALLS2 -256.
) )
#Y(#:TOP-LEVEL-FORM-40 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) MEMQ
REMOVE-OLD-DEFINITIONS MACRO
#Y(MEMQ
#54Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 19 9A 57 74 9B 57 57 74 A7 89 5F 06 A7 6D 5C 8A
08 0D DA A9 A9 C6 5D 03 19 05 A9 2E 01 19 03 D7 A9 A9 6D 5C C3 76 C4 1A 6D
)
3. MACRO-CALL-ERROR CASE (T) ((T NIL)) MEMBER (:TEST #'EQ)
) )
#Y(#:TOP-LEVEL-FORM-41 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILER-ERROR
REMOVE-OLD-DEFINITIONS
#Y(COMPILER-ERROR #13Y(01 00 01 00 00 08 3C 01 D5 AA AA 5E 02)
"Compiler bug!! Occurred in ~A~@[ at ~A~]."
) )
#Y(#:TOP-LEVEL-FORM-42 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *STACKZ*) *STACKZ*)
#Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STACKZ-FUN
REMOVE-OLD-DEFINITIONS
#Y(STACKZ-FUN #18Y(01 00 00 00 00 02 99 1F 06 A8 30 9C 57 19 02 99 19 02))
)
#Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) IN-SAME-FUNCTION-P
REMOVE-OLD-DEFINITIONS
#Y(IN-SAME-FUNCTION-P #15Y(02 00 00 00 00 03 A9 6B 00 A9 2E 00 55 19 03) STACKZ-FUN)
)
#Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ZUGRIFF-IN-STACK
REMOVE-OLD-DEFINITIONS
#Y(ZUGRIFF-IN-STACK
#220Y(02 00 00 00 00 03 5F D5 D5 AC 9D 21 80 B0 9D 20 04 D6 D7 2F 03 90 05 A7 8A 09 28 98 1F
3F 90 00 A7 23 04 24 A7 24 06 2C A9 67 07 6E 89 7E 02 33 02 AA DD 9B 57 74 32 02 33 14
7E 02 33 03 16 01 1A 80 74 A9 99 1A 80 4C AA DA 9B 57 74 6F 02 35 31 89 1A 65 D6 DE 2F
03 16 01 1A 80 5A 98 25 0A 80 51 8E 03 3F 99 1A 80 43 A8 DA 67 07 6F 02 33 7E 02 33 01
C5 1A 1B 14 A9 32 02 33 1A 04 8E 03 76 99 F9 C8 1A 28 A8 DA 67 07 6F 02 33 7E 02 33 01
C8 14 9B 14 7E 02 33 02 1A 1C 81 01 81 02 1A 16 8F 03 07 14 A9 32 02 33 1A 01 99 F9 CB
F7 C0 F8 1A 04 D6 E1 2F 03 16 01 7F 05 1A FF 4B 9C 1F 15 90 04 23 0D 0A 9C 56 1F 0C 9C
56 74 24 06 06 DA A9 7E 02 33 01 A9 A9 3F 02 19 06
)
0. ZUGRIFF-IN-STACK "STACKZ-END" COMPILER-ERROR BIND 2. TAGBODY *JMPBUF-SIZE* 3.
"STACKZ-LISTITEM"
#S(HASH-TABLE EQ (MVCALL . 65.) (MVCALLP . 59.) (BLOCK . 38.) (CLEANUP . 30.)
(UNWIND-PROTECT . 9.) (CATCH . 38.) (PROGV . 2.)
)
1. "STACKZ-ITEM" BLOCK
) )
#Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EXPAND-UNWIND
REMOVE-OLD-DEFINITIONS
#Y(EXPAND-UNWIND
#271Y(03 00 00 00 00 04 00 2A 04 00 0B 00 00 C0 0B 00 01 0B 00 02 00 0B 00 03 A7 69 01 01 AC
9D 21 80 E5 9D 20 04 D7 D8 2F 04 90 05 A7 8A 09 1D 98 1F 2E 90 00 A7 23 05 1A A7 24 07
1B 9A 33 C8 14 06 04 03 58 0B 03 03 16 01 1A 80 B4 64 02 01 99 1A 37 9A 33 C6 1A 68 D7
DE 2F 04 16 01 1A 80 A0 98 25 0A 80 97 99 33 E0 06 03 03 58 0B 02 03 CC 0B 02 02 1A 80
8A 64 02 02 E2 67 0E 6F 02 33 32 02 33 0B 02 02 E4 06 03 01 14 32 02 33 0B 02 01 1A 80
6D 7A 04 E5 06 03 03 58 0B 02 03 D1 1A 22 99 33 8F 04 6E D1 1A 1A 14 64 03 02 32 02 33
1A 08 06 02 00 1B 72 06 02 02 0B 02 00 CF 1A 34 99 33 D2 14 06 03 03 58 0B 02 03 1A 34
64 02 02 31 89 0B 02 02 64 02 01 31 89 0B 02 01 1A 22 14 64 03 02 32 02 33 1A 08 06 02
00 1B 72 06 02 02 0B 02 00 CC 0B 02 02 C0 0B 02 01 1A 04 D7 E8 2F 04 16 01 7F 05 1A FF
16 98 33 64 01 03 31 43 19 06
)
0.
#Y(EXPAND-UNWIND-HERE
#112Y(00 00 00 00 00 01 07 00 01 1B 38 65 00 02 D7 8D 01 2E 0D DD 65 00 02 77 02 07 00 04
58 0C 00 04 65 00 03 D7 8D 01 2E 0E DC 07 00 03 14 77 02 07 00 04 58 0C 00 04 00 0C
00 01 C2 0C 00 02 0C 00 03 19 01 D6 65 00 01 65 00 02 77 03 07 00 04 58 0C 00 04 65
00 03 D7 8D 01 2F 04 D8 D9 2F 05 65 00 03 DB 8D 01 2E 4F DC 65 00 03 31 8A 1A FF BC
)
NIL SKIPI 0. EXPAND-UNWIND "SP-depth" COMPILER-ERROR 1. SKIPSP SKIP
)
EXPAND-UNWIND "STACKZ-END" COMPILER-ERROR BIND (UNBIND1) TAGBODY (TAGBODY-CLOSE)
"STACKZ-LISTITEM"
#S(HASH-TABLE EQ (MVCALL . 132.) (MVCALLP . 105.) (BLOCK . 92.) (CLEANUP . 78.)
(UNWIND-PROTECT . 61.) (CATCH . 19.) (PROGV . 2.)
)
(UNBIND1) 1. 2. *JMPBUF-SIZE* 3. (VALUES0) (UNWIND-PROTECT-CLEANUP) (BLOCK-CLOSE)
"STACKZ-ITEM"
) )
#Y(#:TOP-LEVEL-FORM-47 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *FENV*) *FENV*)
#Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FENV-SEARCH
REMOVE-OLD-DEFINITIONS
#Y(FENV-SEARCH
#107Y(01 00 01 00 00 08 3A 01 1C 0E 00 F7 8E 01 19 00 19 03 D9 91 01 3F 02 19 06 90 00 23 04
74 DA 91 01 9A 56 1A 2C 8F 01 67 A8 8A 20 03 D6 2E 02 A8 6E 41 6E 8A D8 A7 A9 8C 01 2B
23 AB AB 9A 5A 14 89 FF 13 AA A8 31 89 5A 14 98 20 4D DB AC AA 31 89 14 3F 03 19 06 DC
A8 7E 02 33 00 1A 57 AA 99 5A F9 16 02 8F 01 FF A7 1A FF BD
)
*FENV* FENV-SEARCH COMPILER-ERROR 0. MACRO LOCAL GLOBAL 2.
) )
#Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GLOBAL-IN-FENV-P
REMOVE-OLD-DEFINITIONS
#Y(GLOBAL-IN-FENV-P #13Y(02 00 00 00 00 03 A9 A9 2F 00 54 19 03) FENV-SEARCH)
)
#Y(#:TOP-LEVEL-FORM-50 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *BENV*) *BENV*)
#Y(#:TOP-LEVEL-FORM-51
#285Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 D5 DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 EC 30 5B ED 30 5B EE 2E 01 EE DF EF
31 7A EE F0 31 74 F1 30 5B F2 30 5B F3 2E 01 F3 DF F4 31 7A F3 F5 31 74 61 21 30 5B 61 22
30 5B 61 23 2E 01 61 23 DF 61 24 31 7A 61 23 61 25 31 74 61 26 30 5B 61 27 30 5B 61 28 2E
01 61 28 DF 61 29 31 7A 61 28 61 2A 31 74 E4 61 2B 61 2C 03 2D 76 31 7A E4 61 2E 5F 2C 03
2F E9 61 2B 61 2C 03 30 76 31 7A E9 61 2E 5F 2C 03 2F EE 61 2B 61 2C 03 31 76 31 7A EE 61
2E 5F 2C 03 2F F3 61 2B 61 2C 03 32 76 31 7A F3 61 2E 5F 2C 03 2F 61 23 61 2B 61 2C 03 33
76 31 7A 61 23 61 2E 5F 2C 03 2F 61 28 61 2B 61 2C 03 34 76 31 7A 61 28 61 2E 5F 2C 03 2F
D8 61 35 5F 2C 03 2F D8 61 36 31 7B C3 19 01
)
MAKE-BLOCK REMOVE-OLD-DEFINITIONS
#Y(MAKE-BLOCK
#65Y(00 00 00 00 80 1B 06 00 00 00 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 DB DC 6E 2C DD A8 DE
B1 31 2B DD A8 DF B0 31 2B DD A8 E0 AF 31 2B DD A8 E1 AE 31 2B DD A8 E2 AD 31 2B DD A8
E3 AC 31 2B 15 19 07
)
:FNODE :LABEL :STACKZ :CONSVAR :USED-FAR :FOR-VALUE #1=(BLOCK) 7. BLOCK 1. 2. 3. 4. 5. 6.
)
BLOCK DEFSTRUCT-DESCRIPTION #1#
((FNODE 1. NIL T NIL) (LABEL 2. NIL T NIL) (STACKZ 3. NIL T NIL) (CONSVAR 4. NIL T NIL)
(USED-FAR 5. NIL T NIL) (FOR-VALUE 6. NIL T NIL)
)
CLOS::DEFINE-STRUCTURE-CLASS (INLINE BLOCK-P) BLOCK-P INLINE-EXPANSION
((OBJECT) (DECLARE (IN-DEFUN BLOCK-P)) (BLOCK BLOCK-P (%STRUCTURE-TYPE-P 'BLOCK OBJECT)))
#Y(BLOCK-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) BLOCK) (FUNCTION BLOCK-FNODE (BLOCK) T)
(INLINE BLOCK-FNODE) BLOCK-FNODE
(#2=(OBJECT) (DECLARE (IN-DEFUN BLOCK-FNODE))
(BLOCK BLOCK-FNODE (THE T (%STRUCTURE-REF 'BLOCK OBJECT 1.)))
)
#Y(BLOCK-FNODE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) BLOCK 1.)
(FUNCTION BLOCK-LABEL (BLOCK) T) (INLINE BLOCK-LABEL) BLOCK-LABEL
(#2# (DECLARE (IN-DEFUN BLOCK-LABEL))
(BLOCK BLOCK-LABEL (THE T (%STRUCTURE-REF 'BLOCK OBJECT 2.)))
)
#Y(BLOCK-LABEL #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) BLOCK 2.)
(FUNCTION BLOCK-STACKZ (BLOCK) T) (INLINE BLOCK-STACKZ) BLOCK-STACKZ
(#2# (DECLARE (IN-DEFUN BLOCK-STACKZ))
(BLOCK BLOCK-STACKZ (THE T (%STRUCTURE-REF 'BLOCK OBJECT 3.)))
)
#Y(BLOCK-STACKZ #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) BLOCK 3.)
(FUNCTION BLOCK-CONSVAR (BLOCK) T) (INLINE BLOCK-CONSVAR) BLOCK-CONSVAR
(#2# (DECLARE (IN-DEFUN BLOCK-CONSVAR))
(BLOCK BLOCK-CONSVAR (THE T (%STRUCTURE-REF 'BLOCK OBJECT 4.)))
)
#Y(BLOCK-CONSVAR #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) BLOCK 4.)
(FUNCTION BLOCK-USED-FAR (BLOCK) T) (INLINE BLOCK-USED-FAR) BLOCK-USED-FAR
(#2# (DECLARE (IN-DEFUN BLOCK-USED-FAR))
(BLOCK BLOCK-USED-FAR (THE T (%STRUCTURE-REF 'BLOCK OBJECT 5.)))
)
#Y(BLOCK-USED-FAR #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) BLOCK 5.)
(FUNCTION BLOCK-FOR-VALUE (BLOCK) T) (INLINE BLOCK-FOR-VALUE) BLOCK-FOR-VALUE
(#2# (DECLARE (IN-DEFUN BLOCK-FOR-VALUE))
(BLOCK BLOCK-FOR-VALUE (THE T (%STRUCTURE-REF 'BLOCK OBJECT 6.)))
)
#Y(BLOCK-FOR-VALUE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) BLOCK 6.) SETF-EXPANDER -1.
#Y(SETF-BLOCK-FNODE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
'BLOCK 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-BLOCK-LABEL #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
'BLOCK 2.
)
#Y(SETF-BLOCK-STACKZ #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'BLOCK 3.
)
#Y(SETF-BLOCK-CONSVAR #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'BLOCK 4.
)
#Y(SETF-BLOCK-USED-FAR #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'BLOCK 5.
)
#Y(SETF-BLOCK-FOR-VALUE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'BLOCK 6.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-52 #12Y(00 00 00 00 00 01 D5 D6 31 7B 19 01) BLOCK DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BENV-SEARCH
REMOVE-OLD-DEFINITIONS
#Y(BENV-SEARCH
#48Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 99 1F 0A 99 56 74 9B 21 0C 7F 01 1A 73 00 19 03 99
56 57 19 03 99 56 75 D6 A8 31 2E 16 01 1B 70 99 56 19 03
)
*BENV* BLOCK
) )
#Y(#:TOP-LEVEL-FORM-54 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *GENV*) *GENV*)
#Y(#:TOP-LEVEL-FORM-55
#241Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 D5 DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 EC 30 5B ED 30 5B EE 2E 01 EE DF EF
31 7A EE F0 31 74 F1 30 5B F2 30 5B F3 2E 01 F3 DF F4 31 7A F3 F5 31 74 61 21 30 5B 61 22
30 5B 61 23 2E 01 61 23 DF 61 24 31 7A 61 23 61 25 31 74 E4 61 26 61 27 03 28 76 31 7A E4
61 29 5F 2C 03 2A E9 61 26 61 27 03 2B 76 31 7A E9 61 29 5F 2C 03 2A EE 61 26 61 27 03 2C
76 31 7A EE 61 29 5F 2C 03 2A F3 61 26 61 27 03 2D 76 31 7A F3 61 29 5F 2C 03 2A 61 23 61
26 61 27 03 2E 76 31 7A 61 23 61 29 5F 2C 03 2A D8 61 2F 5F 2C 03 2A D8 61 30 31 7B C3 19
01
)
MAKE-TAGBODY REMOVE-OLD-DEFINITIONS
#Y(MAKE-TAGBODY
#57Y(00 00 00 00 80 1B 05 00 00 00 3C 05 3C 04 3C 03 3C 02 3C 01 DA DB 6E 2C DC A8 DD B0 31
2B DC A8 DE AF 31 2B DC A8 DF AE 31 2B DC A8 E0 AD 31 2B DC A8 E1 AC 31 2B 15 19 06
)
:FNODE :LABELLIST :STACKZ :CONSVAR :USED-FAR #1=(TAGBODY) 6. TAGBODY 1. 2. 3. 4. 5.
)
TAGBODY DEFSTRUCT-DESCRIPTION #1#
((FNODE 1. NIL T NIL) (LABELLIST 2. NIL T NIL) (STACKZ 3. NIL T NIL) (CONSVAR 4. NIL T NIL)
(USED-FAR 5. NIL T NIL)
)
CLOS::DEFINE-STRUCTURE-CLASS (INLINE TAGBODY-P) TAGBODY-P INLINE-EXPANSION
((OBJECT) (DECLARE (IN-DEFUN TAGBODY-P)) (BLOCK TAGBODY-P (%STRUCTURE-TYPE-P 'TAGBODY OBJECT)))
#Y(TAGBODY-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) TAGBODY)
(FUNCTION TAGBODY-FNODE (TAGBODY) T) (INLINE TAGBODY-FNODE) TAGBODY-FNODE
(#2=(OBJECT) (DECLARE (IN-DEFUN TAGBODY-FNODE))
(BLOCK TAGBODY-FNODE (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 1.)))
)
#Y(TAGBODY-FNODE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) TAGBODY 1.)
(FUNCTION TAGBODY-LABELLIST (TAGBODY) T) (INLINE TAGBODY-LABELLIST) TAGBODY-LABELLIST
(#2# (DECLARE (IN-DEFUN TAGBODY-LABELLIST))
(BLOCK TAGBODY-LABELLIST (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 2.)))
)
#Y(TAGBODY-LABELLIST #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) TAGBODY 2.)
(FUNCTION TAGBODY-STACKZ (TAGBODY) T) (INLINE TAGBODY-STACKZ) TAGBODY-STACKZ
(#2# (DECLARE (IN-DEFUN TAGBODY-STACKZ))
(BLOCK TAGBODY-STACKZ (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 3.)))
)
#Y(TAGBODY-STACKZ #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) TAGBODY 3.)
(FUNCTION TAGBODY-CONSVAR (TAGBODY) T) (INLINE TAGBODY-CONSVAR) TAGBODY-CONSVAR
(#2# (DECLARE (IN-DEFUN TAGBODY-CONSVAR))
(BLOCK TAGBODY-CONSVAR (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 4.)))
)
#Y(TAGBODY-CONSVAR #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) TAGBODY 4.)
(FUNCTION TAGBODY-USED-FAR (TAGBODY) T) (INLINE TAGBODY-USED-FAR) TAGBODY-USED-FAR
(#2# (DECLARE (IN-DEFUN TAGBODY-USED-FAR))
(BLOCK TAGBODY-USED-FAR (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 5.)))
)
#Y(TAGBODY-USED-FAR #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) TAGBODY 5.) SETF-EXPANDER -1.
#Y(SETF-TAGBODY-FNODE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'TAGBODY 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-TAGBODY-LABELLIST #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'TAGBODY 2.
)
#Y(SETF-TAGBODY-STACKZ #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'TAGBODY 3.
)
#Y(SETF-TAGBODY-CONSVAR #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'TAGBODY 4.
)
#Y(SETF-TAGBODY-USED-FAR #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'TAGBODY 5.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-56 #12Y(00 00 00 00 00 01 D5 D6 31 7B 19 01) TAGBODY DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GENV-SEARCH
REMOVE-OLD-DEFINITIONS
#Y(GENV-SEARCH
#73Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 99 1F 09 99 56 74 A7 6E 41 D6 1A 25 00 19 03 9C 56
57 1A 0D 9C 56 75 D7 A8 31 2E 16 01 1B 70 9C 56 14 A8 3F 02 19 06 A9 99 5A 14 AD 88 FE
65 81 00 A7 A9 8D 01 2B 70 16 03 7F 01 1A 43
)
*GENV* 0. TAGBODY
) )
#Y(#:TOP-LEVEL-FORM-58
#28Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 6D 5C 31 75 C0 19 01)
SPECDECL "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT SPECDECL
(EVAL
'#1=(LET
((*EVALHOOK* #'(LAMBDA (FORM ENV) (DECLARE (IGNORE FORM)) (SVREF (SVREF ENV 0.) 1.)))) 0.
)) )
WARN #1#
)
#Y(#:TOP-LEVEL-FORM-59 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PROCLAIMED-SPECIAL-P
REMOVE-OLD-DEFINITIONS
#Y(PROCLAIMED-SPECIAL-P
#25Y(01 00 00 00 00 02 A8 31 81 1D 0C A8 67 00 D6 37 02 30 B3 54 54 19 02 19 02)
*KNOWN-SPECIAL-VARS* #.#'EQ
) )
#Y(#:TOP-LEVEL-FORM-60 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *VENV*) *VENV*)
#Y(#:TOP-LEVEL-FORM-61 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *VENVC*) *VENVC*)
#Y(#:TOP-LEVEL-FORM-62
#433Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 D5 DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 EC 30 5B ED 30 5B EE 2E 01 EE DF EF
31 7A EE F0 31 74 F1 30 5B F2 30 5B F3 2E 01 F3 DF F4 31 7A F3 F5 31 74 61 21 30 5B 61 22
30 5B 61 23 2E 01 61 23 DF 61 24 31 7A 61 23 61 25 31 74 61 26 30 5B 61 27 30 5B 61 28 2E
01 61 28 DF 61 29 31 7A 61 28 61 2A 31 74 61 2B 30 5B 61 2C 30 5B 61 2D 2E 01 61 2D DF 61
2E 31 7A 61 2D 61 2F 31 74 61 30 30 5B 61 31 30 5B 61 32 2E 01 61 32 DF 61 33 31 7A 61 32
61 34 31 74 61 35 30 5B 61 36 30 5B 61 37 2E 01 61 37 DF 61 38 31 7A 61 37 61 39 31 74 61
3A 30 5B 61 3B 30 5B 61 3C 2E 01 61 3C DF 61 3D 31 7A 61 3C 61 3E 31 74 61 3F 30 5B 61 40
30 5B 61 41 2E 01 61 41 DF 61 42 31 7A 61 41 61 43 31 74 EE 61 44 61 45 03 46 76 31 7A EE
61 47 5F 2C 03 48 F3 61 44 61 45 03 49 76 31 7A F3 61 47 5F 2C 03 48 61 23 61 44 61 45 03
4A 76 31 7A 61 23 61 47 5F 2C 03 48 61 28 61 44 61 45 03 4B 76 31 7A 61 28 61 47 5F 2C 03
48 61 2D 61 44 61 45 03 4C 76 31 7A 61 2D 61 47 5F 2C 03 48 61 32 61 44 61 45 03 4D 76 31
7A 61 32 61 47 5F 2C 03 48 61 37 61 44 61 45 03 4E 76 31 7A 61 37 61 47 5F 2C 03 48 D8 61
4F 5F 2C 03 48 D8 61 50 31 7B C3 19 01
)
MAKE-VAR REMOVE-OLD-DEFINITIONS
#Y(MAKE-VAR
#105Y(00 00 00 00 80 1B 0B 00 00 00 3C 0B 3C 0A 3C 09 3C 08 3C 07 3C 06 3C 05 3C 04 3C 03 3C
02 3C 01 E0 E1 6E 2C E2 A8 E3 B6 31 2B E2 A8 E4 B5 31 2B E2 A8 E5 B4 31 2B E2 A8 E6 B3
31 2B E2 A8 E7 B2 31 2B E2 A8 E8 B1 31 2B E2 A8 E9 B0 31 2B E2 A8 EA AF 31 2B E2 A8 EB
AE 31 2B E2 A8 EC AD 31 2B E2 A8 ED AC 31 2B 15 19 0C
)
:NAME :SPECIALP :CONSTANTP :CONSTANT :USEDP :REALLY-USEDP :MODIFIED-LIST :REPLACEABLE-LIST
:CLOSUREP :STACKZ :VENVC #1=(VAR) 12. VAR 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11.
)
VAR DEFSTRUCT-DESCRIPTION #1#
((NAME 1. NIL T T) (SPECIALP 2. NIL T T) (CONSTANTP 3. NIL T NIL) (CONSTANT 4. NIL T NIL)
(USEDP 5. NIL T NIL) (REALLY-USEDP 6. NIL T NIL) (MODIFIED-LIST 7. 'NIL T NIL)
(REPLACEABLE-LIST 8. 'NIL T NIL) (CLOSUREP 9. NIL T NIL) (STACKZ 10. NIL T T)
(VENVC 11. NIL T T)
)
CLOS::DEFINE-STRUCTURE-CLASS (INLINE VAR-P) VAR-P INLINE-EXPANSION
((OBJECT) (DECLARE (IN-DEFUN VAR-P)) (BLOCK VAR-P (%STRUCTURE-TYPE-P 'VAR OBJECT)))
#Y(VAR-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) VAR) (FUNCTION VAR-NAME (VAR) T)
(INLINE VAR-NAME) VAR-NAME
(#2=(OBJECT) (DECLARE (IN-DEFUN VAR-NAME))
(BLOCK VAR-NAME (THE T (%STRUCTURE-REF 'VAR OBJECT 1.)))
)
#Y(VAR-NAME #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 1.) (FUNCTION VAR-SPECIALP (VAR) T)
(INLINE VAR-SPECIALP) VAR-SPECIALP
(#2# (DECLARE (IN-DEFUN VAR-SPECIALP))
(BLOCK VAR-SPECIALP (THE T (%STRUCTURE-REF 'VAR OBJECT 2.)))
)
#Y(VAR-SPECIALP #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 2.)
(FUNCTION VAR-CONSTANTP (VAR) T) (INLINE VAR-CONSTANTP) VAR-CONSTANTP
(#2# (DECLARE (IN-DEFUN VAR-CONSTANTP))
(BLOCK VAR-CONSTANTP (THE T (%STRUCTURE-REF 'VAR OBJECT 3.)))
)
#Y(VAR-CONSTANTP #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 3.)
(FUNCTION VAR-CONSTANT (VAR) T) (INLINE VAR-CONSTANT) VAR-CONSTANT
(#2# (DECLARE (IN-DEFUN VAR-CONSTANT))
(BLOCK VAR-CONSTANT (THE T (%STRUCTURE-REF 'VAR OBJECT 4.)))
)
#Y(VAR-CONSTANT #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 4.)
(FUNCTION VAR-USEDP (VAR) T) (INLINE VAR-USEDP) VAR-USEDP
(#2# (DECLARE (IN-DEFUN VAR-USEDP)) (BLOCK VAR-USEDP (THE T (%STRUCTURE-REF 'VAR OBJECT 5.))))
#Y(VAR-USEDP #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 5.)
(FUNCTION VAR-REALLY-USEDP (VAR) T) (INLINE VAR-REALLY-USEDP) VAR-REALLY-USEDP
(#2# (DECLARE (IN-DEFUN VAR-REALLY-USEDP))
(BLOCK VAR-REALLY-USEDP (THE T (%STRUCTURE-REF 'VAR OBJECT 6.)))
)
#Y(VAR-REALLY-USEDP #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 6.)
(FUNCTION VAR-MODIFIED-LIST (VAR) T) (INLINE VAR-MODIFIED-LIST) VAR-MODIFIED-LIST
(#2# (DECLARE (IN-DEFUN VAR-MODIFIED-LIST))
(BLOCK VAR-MODIFIED-LIST (THE T (%STRUCTURE-REF 'VAR OBJECT 7.)))
)
#Y(VAR-MODIFIED-LIST #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 7.)
(FUNCTION VAR-REPLACEABLE-LIST (VAR) T) (INLINE VAR-REPLACEABLE-LIST) VAR-REPLACEABLE-LIST
(#2# (DECLARE (IN-DEFUN VAR-REPLACEABLE-LIST))
(BLOCK VAR-REPLACEABLE-LIST (THE T (%STRUCTURE-REF 'VAR OBJECT 8.)))
)
#Y(VAR-REPLACEABLE-LIST #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 8.)
(FUNCTION VAR-CLOSUREP (VAR) T) (INLINE VAR-CLOSUREP) VAR-CLOSUREP
(#2# (DECLARE (IN-DEFUN VAR-CLOSUREP))
(BLOCK VAR-CLOSUREP (THE T (%STRUCTURE-REF 'VAR OBJECT 9.)))
)
#Y(VAR-CLOSUREP #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 9.)
(FUNCTION VAR-STACKZ (VAR) T) (INLINE VAR-STACKZ) VAR-STACKZ
(#2# (DECLARE (IN-DEFUN VAR-STACKZ)) (BLOCK VAR-STACKZ (THE T (%STRUCTURE-REF 'VAR OBJECT 10.)))
)
#Y(VAR-STACKZ #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 10.) (FUNCTION VAR-VENVC (VAR) T)
(INLINE VAR-VENVC) VAR-VENVC
(#2# (DECLARE (IN-DEFUN VAR-VENVC)) (BLOCK VAR-VENVC (THE T (%STRUCTURE-REF 'VAR OBJECT 11.))))
#Y(VAR-VENVC #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 11.) SETF-EXPANDER -1.
#Y(SETF-VAR-CONSTANTP #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'VAR 3.
)
SETF %SET-DOCUMENTATION
#Y(SETF-VAR-CONSTANT #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'VAR 4.
)
#Y(SETF-VAR-USEDP #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
'VAR 5.
)
#Y(SETF-VAR-REALLY-USEDP #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'VAR 6.
)
#Y(SETF-VAR-MODIFIED-LIST #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'VAR 7.
)
#Y(SETF-VAR-REPLACEABLE-LIST #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'VAR 8.
)
#Y(SETF-VAR-CLOSUREP #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'VAR 9.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-63 #12Y(00 00 00 00 00 01 D5 D6 31 7B 19 01) VAR DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-64 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) VENV-SEARCH
REMOVE-OLD-DEFINITIONS
#Y(VENV-SEARCH
#118Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 A9 88 5F 31 A9 84 01 2D 8F 01 36 A8 8B 20 80 51 A8
6E 41 6E 8A D8 A7 A9 8C 01 2B 1C AB AB 9A 5A 22 36 AA A8 31 89 5A 14 D9 A8 8A 2E 17 A7
0E 06 22 1E C2 19 06 C2 19 03 AA 99 5A F9 16 02 8E 01 4A 00 19 03 D9 A8 DA 8A 2A 68 60
A8 3F 02 19 06 DC AC 92 03 3F 03 19 06 DA A8 7E 02 33 00 1A FF B5 DD 2E 09 8F 01 5A 1A
FF A1
)
*VENV* PROCLAIMED-SPECIAL-P SPECIAL 0. VAR 2. SPECDECL LOCAL VENV-SEARCH COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-65 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) VENV-SEARCH-MACRO
REMOVE-OLD-DEFINITIONS
#Y(VENV-SEARCH-MACRO
#52Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 A9 A9 2F 01 41 03 A9 D7 37 03 88 B3 0A A9 D8 37 03
88 B3 0D 00 19 06 AC 30 50 1E 0A AC 30 4F 19 06 A8 99 5A 19 06 19 06
)
*VENV* VENV-SEARCH (NIL) (LOCAL)
) )
#Y(#:TOP-LEVEL-FORM-66 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PUSH-*VENV*
REMOVE-OLD-DEFINITIONS
#Y(PUSH-*VENV*
#49Y(00 00 00 00 01 16 8E 01 03 00 19 02 67 00 77 01 A9 5F 1A 0F 83 01 00 D6 A8 D7 6E 2A A8
9C 5D 02 F8 7F 01 A8 89 92 6D 16 02 D8 99 36 00 0F 00 19 03
)
*VENV* VAR 1. #.#'VECTOR
) )
#Y(#:TOP-LEVEL-FORM-67 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ZUGRIFF-IN-CLOSURE
REMOVE-OLD-DEFINITIONS
#Y(ZUGRIFF-IN-CLOSURE
#83Y(03 00 00 00 00 04 01 02 1A 1A A7 8A 08 12 C2 F8 1A 0E 79 00 1A 25 90 04 8F 02 6F 98 1F
02 81 02 16 01 7F 04 AB D5 AE D6 31 2A 22 6A 8E 01 63 AA 9D 56 75 2F 03 41 02 66 01 66
01 9C 56 74 D7 1A 04 7F 01 81 00 90 01 A0 22 77 66 00 A9 A9 A9 3F 03 19 07
)
VAR 11. 0. ZUGRIFF-IN-STACK
) )
#Y(#:TOP-LEVEL-FORM-68
#119Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 D5 DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 E4 EC ED 03 19 76 31 7A E4 EF 5F 2C
03 1B E9 EC ED 03 1C 76 31 7A E9 EF 5F 2C 03 1B D8 F2 5F 2C 03 1B D8 F3 31 7B C3 19 01
)
MAKE-CONST REMOVE-OLD-DEFINITIONS
#Y(MAKE-CONST
#33Y(00 00 00 00 80 1B 02 00 00 00 3C 02 3C 01 D7 D8 6E 2C D9 A8 DA AD 31 2B D9 A8 DB AC 31
2B 15 19 03
)
:VALUE :FORM #1=(CONST) 3. CONST 1. 2.
)
CONST DEFSTRUCT-DESCRIPTION #1# ((VALUE 1. NIL T NIL) (FORM 2. NIL T NIL))
CLOS::DEFINE-STRUCTURE-CLASS (INLINE CONST-P) CONST-P INLINE-EXPANSION
((OBJECT) (DECLARE (IN-DEFUN CONST-P)) (BLOCK CONST-P (%STRUCTURE-TYPE-P 'CONST OBJECT)))
#Y(CONST-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) CONST) (FUNCTION CONST-VALUE (CONST) T)
(INLINE CONST-VALUE) CONST-VALUE
(#2=(OBJECT) (DECLARE (IN-DEFUN CONST-VALUE))
(BLOCK CONST-VALUE (THE T (%STRUCTURE-REF 'CONST OBJECT 1.)))
)
#Y(CONST-VALUE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) CONST 1.)
(FUNCTION CONST-FORM (CONST) T) (INLINE CONST-FORM) CONST-FORM
(#2# (DECLARE (IN-DEFUN CONST-FORM))
(BLOCK CONST-FORM (THE T (%STRUCTURE-REF 'CONST OBJECT 2.)))
)
#Y(CONST-FORM #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) CONST 2.) SETF-EXPANDER -1.
#Y(SETF-CONST-VALUE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
'CONST 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-CONST-FORM #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
'CONST 2.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-69 #12Y(00 00 00 00 00 01 D5 D6 31 7B 19 01) CONST DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-70 #16Y(00 00 00 00 00 01 D5 30 5B D6 D7 30 53 C1 19 01)
(SPECIAL *DECLARATION-TYPES*) *DECLARATION-TYPES*
(SPECIAL TYPE FTYPE FUNCTION INLINE NOTINLINE IGNORE OPTIMIZE DECLARATION ARRAY ATOM BIGNUM BIT
BIT-VECTOR CHARACTER COMMON COMPILED-FUNCTION COMPLEX CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION
HASH-TABLE INTEGER KEYWORD LIST LONG-FLOAT NIL NULL NUMBER PACKAGE PATHNAME RANDOM-STATE RATIO
RATIONAL READTABLE SEQUENCE SHORT-FLOAT SIMPLE-ARRAY SIMPLE-BIT-VECTOR SIMPLE-STRING
SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR STREAM STRING STRING-CHAR SYMBOL T VECTOR COMPILE
SOURCE IN-DEFUN IGNORABLE
))
#Y(#:TOP-LEVEL-FORM-71 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *DENV*) *DENV*)
#Y(#:TOP-LEVEL-FORM-72 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PROCESS-DECLARATIONS
REMOVE-OLD-DEFINITIONS
#Y(PROCESS-DECLARATIONS
#242Y(01 00 00 00 00 02 01 03 AB 7D 43 04 14 5F 1A 80 D3 D5 A8 2F 01 1A 80 CA 91 01 5F 1A 12
A7 80 07 1A 0B 83 01 00 14 8A 03 74 DE A8 2F 01 7F 01 A8 89 92 6F 16 03 1A 80 AA 91 01
5F 1A 12 A7 80 06 1A 0B 83 01 00 14 8A 03 74 E0 A8 2F 01 7F 01 A8 89 92 6F 16 03 1A 80
8A 91 01 5F 1A 12 A7 80 05 1A 0B 83 01 00 14 8A 03 74 E2 A8 2F 01 7F 01 A8 89 92 6F 16
03 1A 80 6A 16 01 A7 23 08 FF 99 A7 23 0A FF B4 A7 23 0C 50 A8 0E 04 58 0F 04 16 01 1A
80 4F 83 01 00 1F FF 78 A7 30 9C 57 1B FF 71 90 00 A7 8B 03 34 A7 67 02 D8 37 02 88 B3
4B 67 04 8F 00 16 98 56 74 24 05 0B A8 99 56 75 D8 37 02 88 B3 FF B3 7F 00 8E 00 6A 16
01 0E 06 1C 0A A7 67 07 D8 37 02 88 B3 FF A0 E3 A8 AA 2C 03 01 16 01 7F 01 A8 89 92 FF
AA 16 02 A9 A9 A9 3F 03 19 05
)
"Bad declaration syntax: ~S~%Will be ignored." C-WARN *DECLARATION-TYPES* #.#'EQ *DENV*
DECLARATION *COMPILING-FROM-FILE* *USER-DECLARATION-TYPES* SPECIAL
"Non-symbol ~S may not be declared SPECIAL." IGNORE
"Non-symbol ~S may not be declared IGNORE." IGNORABLE
"Non-symbol ~S may not be declared IGNORABLE."
"Unknown declaration ~S.~%The whole declaration will be ignored."
) )
#Y(#:TOP-LEVEL-FORM-73 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DECLARED-NOTINLINE
REMOVE-OLD-DEFINITIONS
#Y(DECLARED-NOTINLINE
#110Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 D6 AA 77 02 67 00 D7 37 02 89 B3 12 1A 20 90 01 90
00 23 09 34 90 00 23 08 3B 16 01 7F 01 99 20 6D 0E 03 1C 18 A9 67 04 D7 37 02 89 B3 06
02 19 03 00 19 03 A9 67 05 D7 37 02 88 B3 74 A9 6B 06 DC 37 01 6E 76 C8 55 19 03 AA 91
01 D7 37 02 89 B3 43 00 19 04 AA 91 01 D7 37 02 89 B3 FF BB 02 19 04
)
*DENV* INLINING #.#'EQUAL *COMPILING-FROM-FILE* *NOTINLINE-FUNCTIONS* *INLINE-FUNCTIONS*
GET-FUNNAME-SYMBOL INLINABLE NOTINLINE INLINE
) )
#Y(#:TOP-LEVEL-FORM-74
#912Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 D5 DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 EC 30 5B ED 30 5B EE 2E 01 EE DF EF
31 7A EE F0 31 74 F1 30 5B F2 30 5B F3 2E 01 F3 DF F4 31 7A F3 F5 31 74 61 21 30 5B 61 22
30 5B 61 23 2E 01 61 23 DF 61 24 31 7A 61 23 61 25 31 74 61 26 30 5B 61 27 30 5B 61 28 2E
01 61 28 DF 61 29 31 7A 61 28 61 2A 31 74 61 2B 30 5B 61 2C 30 5B 61 2D 2E 01 61 2D DF 61
2E 31 7A 61 2D 61 2F 31 74 61 30 30 5B 61 31 30 5B 61 32 2E 01 61 32 DF 61 33 31 7A 61 32
61 34 31 74 61 35 30 5B 61 36 30 5B 61 37 2E 01 61 37 DF 61 38 31 7A 61 37 61 39 31 74 61
3A 30 5B 61 3B 30 5B 61 3C 2E 01 61 3C DF 61 3D 31 7A 61 3C 61 3E 31 74 61 3F 30 5B 61 40
30 5B 61 41 2E 01 61 41 DF 61 42 31 7A 61 41 61 43 31 74 61 44 30 5B 61 45 30 5B 61 46 2E
01 61 46 DF 61 47 31 7A 61 46 61 48 31 74 61 49 30 5B 61 4A 30 5B 61 4B 2E 01 61 4B DF 61
4C 31 7A 61 4B 61 4D 31 74 61 4E 30 5B 61 4F 30 5B 61 50 2E 01 61 50 DF 61 51 31 7A 61 50
61 52 31 74 61 53 30 5B 61 54 30 5B 61 55 2E 01 61 55 DF 61 56 31 7A 61 55 61 57 31 74 61
58 30 5B 61 59 30 5B 61 5A 2E 01 61 5A DF 61 5B 31 7A 61 5A 61 5C 31 74 61 5D 30 5B 61 5E
30 5B 61 5F 2E 01 61 5F DF 61 60 31 7A 61 5F 61 61 31 74 61 62 30 5B 61 63 30 5B 61 64 2E
01 61 64 DF 61 65 31 7A 61 64 61 66 31 74 61 67 30 5B 61 68 30 5B 61 69 2E 01 61 69 DF 61
6A 31 7A 61 69 61 6B 31 74 61 6C 30 5B 61 6D 30 5B 61 6E 2E 01 61 6E DF 61 6F 31 7A 61 6E
61 70 31 74 E4 61 71 61 72 03 73 76 31 7A E4 61 74 5F 2C 03 75 E9 61 71 61 72 03 76 76 31
7A E9 61 74 5F 2C 03 75 EE 61 71 61 72 03 77 76 31 7A EE 61 74 5F 2C 03 75 F3 61 71 61 72
03 78 76 31 7A F3 61 74 5F 2C 03 75 61 23 61 71 61 72 03 79 76 31 7A 61 23 61 74 5F 2C 03
75 61 28 61 71 61 72 03 7A 76 31 7A 61 28 61 74 5F 2C 03 75 61 2D 61 71 61 72 03 7B 76 31
7A 61 2D 61 74 5F 2C 03 75 61 32 61 71 61 72 03 7C 76 31 7A 61 32 61 74 5F 2C 03 75 61 37
61 71 61 72 03 7D 76 31 7A 61 37 61 74 5F 2C 03 75 61 3C 61 71 61 72 03 7E 76 31 7A 61 3C
61 74 5F 2C 03 75 61 41 61 71 61 72 03 7F 76 31 7A 61 41 61 74 5F 2C 03 75 61 46 61 71 61
72 03 80 80 76 31 7A 61 46 61 74 5F 2C 03 75 61 4B 61 71 61 72 03 80 81 76 31 7A 61 4B 61
74 5F 2C 03 75 61 50 61 71 61 72 03 80 82 76 31 7A 61 50 61 74 5F 2C 03 75 61 55 61 71 61
72 03 80 83 76 31 7A 61 55 61 74 5F 2C 03 75 61 5A 61 71 61 72 03 80 84 76 31 7A 61 5A 61
74 5F 2C 03 75 61 5F 61 71 61 72 03 80 85 76 31 7A 61 5F 61 74 5F 2C 03 75 61 64 61 71 61
72 03 80 86 76 31 7A 61 64 61 74 5F 2C 03 75 61 69 61 71 61 72 03 80 87 76 31 7A 61 69 61
74 5F 2C 03 75 61 6E 61 71 61 72 03 80 88 76 31 7A 61 6E 61 74 5F 2C 03 75 D8 61 80 89 5F
2C 03 75 D8 61 80 8A 31 7B C3 19 01
)
MAKE-FNODE REMOVE-OLD-DEFINITIONS
#Y(MAKE-FNODE
#196Y(00 00 00 00 80 1B 14 00 00 00 3C 14 3C 13 3C 12 3C 11 3C 10 3C 0F 3C 0E 3C 0D 3C 0C 3A
0B 03 D4 09 0B 3A 0A 03 D4 09 0A 3C 09 3C 08 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01
EA EB 6E 2C EC A8 ED BF 31 2B EC A8 EE BE 31 2B EC A8 EF BD 31 2B EC A8 F0 BC 31 2B EC
A8 F1 BB 31 2B EC A8 F2 BA 31 2B EC A8 F3 B9 31 2B EC A8 F4 B8 31 2B EC A8 F5 B7 31 2B
EC A8 61 21 B6 31 2B EC A8 61 22 B5 31 2B EC A8 61 23 B4 31 2B EC A8 61 24 B3 31 2B EC
A8 61 25 B2 31 2B EC A8 61 26 B1 31 2B EC A8 61 27 B0 31 2B EC A8 61 28 AF 31 2B EC A8
61 29 AE 31 2B EC A8 61 2A AD 31 2B EC A8 61 2B AC 31 2B 15 19 15
)
:NAME :CODE :VENVCONST :VENVC :BLOCKS-OFFSET :BLOCKS :TAGBODYS-OFFSET :TAGBODYS
:KEYWORD-OFFSET :REQ-ANZ :OPT-ANZ :REST-FLAG :KEYWORD-FLAG :KEYWORDS :ALLOW-OTHER-KEYS-FLAG
:CONSTS-OFFSET :CONSTS :CONSTS-FORMS :ENCLOSING :GF-P 0. #1=(FNODE) 21. FNODE 1. 2. 3. 4. 5.
6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20.
)
FNODE DEFSTRUCT-DESCRIPTION #1#
((NAME 1. NIL T NIL) (CODE 2. NIL T NIL) (VENVCONST 3. NIL T NIL) (VENVC 4. NIL T NIL)
(BLOCKS-OFFSET 5. NIL T NIL) (BLOCKS 6. NIL T NIL) (TAGBODYS-OFFSET 7. NIL T NIL)
(TAGBODYS 8. NIL T NIL) (KEYWORD-OFFSET 9. NIL T NIL) (REQ-ANZ 10. 0. T NIL)
(OPT-ANZ 11. 0. T NIL) (REST-FLAG 12. NIL T NIL) (KEYWORD-FLAG 13. NIL T NIL)
(KEYWORDS 14. NIL T NIL) (ALLOW-OTHER-KEYS-FLAG 15. NIL T NIL) (CONSTS-OFFSET 16. NIL T NIL)
(CONSTS 17. NIL T NIL) (CONSTS-FORMS 18. NIL T NIL) (ENCLOSING 19. NIL T NIL)
(GF-P 20. NIL T NIL)
)
CLOS::DEFINE-STRUCTURE-CLASS (INLINE FNODE-P) FNODE-P INLINE-EXPANSION
((OBJECT) (DECLARE (IN-DEFUN FNODE-P)) (BLOCK FNODE-P (%STRUCTURE-TYPE-P 'FNODE OBJECT)))
#Y(FNODE-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) FNODE) (FUNCTION FNODE-NAME (FNODE) T)
(INLINE FNODE-NAME) FNODE-NAME
(#2=(OBJECT) (DECLARE (IN-DEFUN FNODE-NAME))
(BLOCK FNODE-NAME (THE T (%STRUCTURE-REF 'FNODE OBJECT 1.)))
)
#Y(FNODE-NAME #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 1.)
(FUNCTION FNODE-CODE (FNODE) T) (INLINE FNODE-CODE) FNODE-CODE
(#2# (DECLARE (IN-DEFUN FNODE-CODE))
(BLOCK FNODE-CODE (THE T (%STRUCTURE-REF 'FNODE OBJECT 2.)))
)
#Y(FNODE-CODE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 2.)
(FUNCTION FNODE-VENVCONST (FNODE) T) (INLINE FNODE-VENVCONST) FNODE-VENVCONST
(#2# (DECLARE (IN-DEFUN FNODE-VENVCONST))
(BLOCK FNODE-VENVCONST (THE T (%STRUCTURE-REF 'FNODE OBJECT 3.)))
)
#Y(FNODE-VENVCONST #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 3.)
(FUNCTION FNODE-VENVC (FNODE) T) (INLINE FNODE-VENVC) FNODE-VENVC
(#2# (DECLARE (IN-DEFUN FNODE-VENVC))
(BLOCK FNODE-VENVC (THE T (%STRUCTURE-REF 'FNODE OBJECT 4.)))
)
#Y(FNODE-VENVC #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 4.)
(FUNCTION FNODE-BLOCKS-OFFSET (FNODE) T) (INLINE FNODE-BLOCKS-OFFSET) FNODE-BLOCKS-OFFSET
(#2# (DECLARE (IN-DEFUN FNODE-BLOCKS-OFFSET))
(BLOCK FNODE-BLOCKS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 5.)))
)
#Y(FNODE-BLOCKS-OFFSET #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 5.)
(FUNCTION FNODE-BLOCKS (FNODE) T) (INLINE FNODE-BLOCKS) FNODE-BLOCKS
(#2# (DECLARE (IN-DEFUN FNODE-BLOCKS))
(BLOCK FNODE-BLOCKS (THE T (%STRUCTURE-REF 'FNODE OBJECT 6.)))
)
#Y(FNODE-BLOCKS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 6.)
(FUNCTION FNODE-TAGBODYS-OFFSET (FNODE) T) (INLINE FNODE-TAGBODYS-OFFSET) FNODE-TAGBODYS-OFFSET
(#2# (DECLARE (IN-DEFUN FNODE-TAGBODYS-OFFSET))
(BLOCK FNODE-TAGBODYS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 7.)))
)
#Y(FNODE-TAGBODYS-OFFSET #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 7.)
(FUNCTION FNODE-TAGBODYS (FNODE) T) (INLINE FNODE-TAGBODYS) FNODE-TAGBODYS
(#2# (DECLARE (IN-DEFUN FNODE-TAGBODYS))
(BLOCK FNODE-TAGBODYS (THE T (%STRUCTURE-REF 'FNODE OBJECT 8.)))
)
#Y(FNODE-TAGBODYS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 8.)
(FUNCTION FNODE-KEYWORD-OFFSET (FNODE) T) (INLINE FNODE-KEYWORD-OFFSET) FNODE-KEYWORD-OFFSET
(#2# (DECLARE (IN-DEFUN FNODE-KEYWORD-OFFSET))
(BLOCK FNODE-KEYWORD-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 9.)))
)
#Y(FNODE-KEYWORD-OFFSET #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 9.)
(FUNCTION FNODE-REQ-ANZ (FNODE) T) (INLINE FNODE-REQ-ANZ) FNODE-REQ-ANZ
(#2# (DECLARE (IN-DEFUN FNODE-REQ-ANZ))
(BLOCK FNODE-REQ-ANZ (THE T (%STRUCTURE-REF 'FNODE OBJECT 10.)))
)
#Y(FNODE-REQ-ANZ #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 10.)
(FUNCTION FNODE-OPT-ANZ (FNODE) T) (INLINE FNODE-OPT-ANZ) FNODE-OPT-ANZ
(#2# (DECLARE (IN-DEFUN FNODE-OPT-ANZ))
(BLOCK FNODE-OPT-ANZ (THE T (%STRUCTURE-REF 'FNODE OBJECT 11.)))
)
#Y(FNODE-OPT-ANZ #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 11.)
(FUNCTION FNODE-REST-FLAG (FNODE) T) (INLINE FNODE-REST-FLAG) FNODE-REST-FLAG
(#2# (DECLARE (IN-DEFUN FNODE-REST-FLAG))
(BLOCK FNODE-REST-FLAG (THE T (%STRUCTURE-REF 'FNODE OBJECT 12.)))
)
#Y(FNODE-REST-FLAG #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 12.)
(FUNCTION FNODE-KEYWORD-FLAG (FNODE) T) (INLINE FNODE-KEYWORD-FLAG) FNODE-KEYWORD-FLAG
(#2# (DECLARE (IN-DEFUN FNODE-KEYWORD-FLAG))
(BLOCK FNODE-KEYWORD-FLAG (THE T (%STRUCTURE-REF 'FNODE OBJECT 13.)))
)
#Y(FNODE-KEYWORD-FLAG #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 13.)
(FUNCTION FNODE-KEYWORDS (FNODE) T) (INLINE FNODE-KEYWORDS) FNODE-KEYWORDS
(#2# (DECLARE (IN-DEFUN FNODE-KEYWORDS))
(BLOCK FNODE-KEYWORDS (THE T (%STRUCTURE-REF 'FNODE OBJECT 14.)))
)
#Y(FNODE-KEYWORDS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 14.)
(FUNCTION FNODE-ALLOW-OTHER-KEYS-FLAG (FNODE) T) (INLINE FNODE-ALLOW-OTHER-KEYS-FLAG)
FNODE-ALLOW-OTHER-KEYS-FLAG
(#2# (DECLARE (IN-DEFUN FNODE-ALLOW-OTHER-KEYS-FLAG))
(BLOCK FNODE-ALLOW-OTHER-KEYS-FLAG (THE T (%STRUCTURE-REF 'FNODE OBJECT 15.)))
)
#Y(FNODE-ALLOW-OTHER-KEYS-FLAG #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 15.)
(FUNCTION FNODE-CONSTS-OFFSET (FNODE) T) (INLINE FNODE-CONSTS-OFFSET) FNODE-CONSTS-OFFSET
(#2# (DECLARE (IN-DEFUN FNODE-CONSTS-OFFSET))
(BLOCK FNODE-CONSTS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 16.)))
)
#Y(FNODE-CONSTS-OFFSET #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 16.)
(FUNCTION FNODE-CONSTS (FNODE) T) (INLINE FNODE-CONSTS) FNODE-CONSTS
(#2# (DECLARE (IN-DEFUN FNODE-CONSTS))
(BLOCK FNODE-CONSTS (THE T (%STRUCTURE-REF 'FNODE OBJECT 17.)))
)
#Y(FNODE-CONSTS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 17.)
(FUNCTION FNODE-CONSTS-FORMS (FNODE) T) (INLINE FNODE-CONSTS-FORMS) FNODE-CONSTS-FORMS
(#2# (DECLARE (IN-DEFUN FNODE-CONSTS-FORMS))
(BLOCK FNODE-CONSTS-FORMS (THE T (%STRUCTURE-REF 'FNODE OBJECT 18.)))
)
#Y(FNODE-CONSTS-FORMS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 18.)
(FUNCTION FNODE-ENCLOSING (FNODE) T) (INLINE FNODE-ENCLOSING) FNODE-ENCLOSING
(#2# (DECLARE (IN-DEFUN FNODE-ENCLOSING))
(BLOCK FNODE-ENCLOSING (THE T (%STRUCTURE-REF 'FNODE OBJECT 19.)))
)
#Y(FNODE-ENCLOSING #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 19.)
(FUNCTION FNODE-GF-P (FNODE) T) (INLINE FNODE-GF-P) FNODE-GF-P
(#2# (DECLARE (IN-DEFUN FNODE-GF-P))
(BLOCK FNODE-GF-P (THE T (%STRUCTURE-REF 'FNODE OBJECT 20.)))
)
#Y(FNODE-GF-P #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 20.) SETF-EXPANDER -1.
#Y(SETF-FNODE-NAME #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
'FNODE 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-FNODE-CODE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
'FNODE 2.
)
#Y(SETF-FNODE-VENVCONST #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 3.
)
#Y(SETF-FNODE-VENVC #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
'FNODE 4.
)
#Y(SETF-FNODE-BLOCKS-OFFSET #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 5.
)
#Y(SETF-FNODE-BLOCKS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 6.
)
#Y(SETF-FNODE-TAGBODYS-OFFSET #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 7.
)
#Y(SETF-FNODE-TAGBODYS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 8.
)
#Y(SETF-FNODE-KEYWORD-OFFSET #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 9.
)
#Y(SETF-FNODE-REQ-ANZ #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 10.
)
#Y(SETF-FNODE-OPT-ANZ #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 11.
)
#Y(SETF-FNODE-REST-FLAG #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 12.
)
#Y(SETF-FNODE-KEYWORD-FLAG #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 13.
)
#Y(SETF-FNODE-KEYWORDS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 14.
)
#Y(SETF-FNODE-ALLOW-OTHER-KEYS-FLAG #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 15.
)
#Y(SETF-FNODE-CONSTS-OFFSET #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 16.
)
#Y(SETF-FNODE-CONSTS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 17.
)
#Y(SETF-FNODE-CONSTS-FORMS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 18.
)
#Y(SETF-FNODE-ENCLOSING #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'FNODE 19.
)
#Y(SETF-FNODE-GF-P #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
'FNODE 20.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-75 #12Y(00 00 00 00 00 01 D5 D6 31 7B 19 01) FNODE DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-76 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *FUNC*) *FUNC*)
#Y(#:TOP-LEVEL-FORM-77 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *FUNC-START-LABEL*)
*FUNC-START-LABEL*
)
#Y(#:TOP-LEVEL-FORM-78 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *ANONYMOUS-COUNT*)
*ANONYMOUS-COUNT*
)
#Y(#:TOP-LEVEL-FORM-79 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *NO-CODE*) *NO-CODE*)
#Y(#:TOP-LEVEL-FORM-80 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *FORM*) *FORM*)
#Y(#:TOP-LEVEL-FORM-81 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *FOR-VALUE*) *FOR-VALUE*)
#Y(#:TOP-LEVEL-FORM-82
#153Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 5F DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 EC 30 5B ED 30 5B EE 2E 01 EE DF EF
31 7A EE F0 31 74 E4 F1 F2 03 1E 76 31 7A E4 F4 5F 2C 03 20 E9 F1 F2 03 21 76 31 7A E9 F4
5F 2C 03 20 EE F1 F2 03 22 76 31 7A EE F4 5F 2C 03 20 D8 61 23 5F 2C 03 20 D8 61 24 31 7B
C3 19 01
)
MK-ANODE REMOVE-OLD-DEFINITIONS
#Y(MK-ANODE
#31Y(03 00 00 00 00 04 D5 D6 6E 2C D7 A8 D8 AE 31 2B D7 A8 D9 AD 31 2B D7 A8 DA AC 31 2B 15
19 04
)
#1=(ANODE) 4. ANODE 1. 2. 3.
)
ANODE DEFSTRUCT-DESCRIPTION #1# ((TYPE 1. NIL T NIL) (SECLASS 2. NIL T NIL) (CODE 3. NIL T NIL))
CLOS::DEFINE-STRUCTURE-CLASS (INLINE ANODE-P) ANODE-P INLINE-EXPANSION
((OBJECT) (DECLARE (IN-DEFUN ANODE-P)) (BLOCK ANODE-P (%STRUCTURE-TYPE-P 'ANODE OBJECT)))
#Y(ANODE-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) ANODE) (FUNCTION ANODE-TYPE (ANODE) T)
(INLINE ANODE-TYPE) ANODE-TYPE
(#2=(OBJECT) (DECLARE (IN-DEFUN ANODE-TYPE))
(BLOCK ANODE-TYPE (THE T (%STRUCTURE-REF 'ANODE OBJECT 1.)))
)
#Y(ANODE-TYPE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) ANODE 1.)
(FUNCTION ANODE-SECLASS (ANODE) T) (INLINE ANODE-SECLASS) ANODE-SECLASS
(#2# (DECLARE (IN-DEFUN ANODE-SECLASS))
(BLOCK ANODE-SECLASS (THE T (%STRUCTURE-REF 'ANODE OBJECT 2.)))
)
#Y(ANODE-SECLASS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) ANODE 2.)
(FUNCTION ANODE-CODE (ANODE) T) (INLINE ANODE-CODE) ANODE-CODE
(#2# (DECLARE (IN-DEFUN ANODE-CODE))
(BLOCK ANODE-CODE (THE T (%STRUCTURE-REF 'ANODE OBJECT 3.)))
)
#Y(ANODE-CODE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) ANODE 3.) SETF-EXPANDER -1.
#Y(SETF-ANODE-TYPE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
'ANODE 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-ANODE-SECLASS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
%STRUCTURE-STORE 'ANODE 2.
)
#Y(SETF-ANODE-CODE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
'ANODE 3.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-83 #12Y(00 00 00 00 00 01 D5 D6 31 7B 19 01) ANODE DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-84 #9Y(00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-85 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SECLASS-OR
REMOVE-OLD-DEFINITIONS
#Y(SECLASS-OR #21Y(00 00 00 00 01 16 8F 01 09 95 01 A9 37 04 31 45 19 02 C0 19 02) (NIL)
SECLASS-OR-2
) )
#Y(#:TOP-LEVEL-FORM-86 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SECLASS-OR-2
REMOVE-OLD-DEFINITIONS
#Y(SECLASS-OR-2
#48Y(02 00 00 00 00 03 90 02 02 21 1F 90 01 02 21 1A 90 02 90 02 2F 00 14 91 03 02 21 11 91
02 02 21 0C 91 03 91 03 2F 00 58 19 03 02 1A 69 02 1A 77
)
UNION
) )
#Y(#:TOP-LEVEL-FORM-87 #9Y(00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-88 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANODELIST-SECLASS-OR
REMOVE-OLD-DEFINITIONS
#Y(ANODELIST-SECLASS-OR #17Y(01 00 00 00 00 02 95 00 95 01 AA 32 00 17 97 00 02) SECLASS-OR
ANODE-SECLASS
) )
#Y(#:TOP-LEVEL-FORM-89 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SECLASS-WITHOUT
REMOVE-OLD-DEFINITIONS
#Y(SECLASS-WITHOUT
#51Y(02 00 00 00 00 03 00 2A 01 7B 02 00 00 A7 69 00 01 90 04 02 21 17 A7 90 05 37 05 31 49
14 91 05 02 21 0D A8 91 06 37 05 31 49 58 19 05 02 1A 6D 02 1A 77
)
#Y(SECLASS-WITHOUT-BOUND #16Y(01 00 00 00 00 02 A8 65 00 01 37 03 30 B3 19 02) NIL)
) )
#Y(#:TOP-LEVEL-FORM-90 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANODES-COMMUTE
REMOVE-OLD-DEFINITIONS
#Y(ANODES-COMMUTE #20Y(02 00 00 00 00 03 D5 AA D6 6E 2A D5 AA D6 6E 2A 2F 02 19 03) ANODE 2.
SECLASSES-COMMUTE
) )
#Y(#:TOP-LEVEL-FORM-91 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SECLASSES-COMMUTE
REMOVE-OLD-DEFINITIONS
#Y(SECLASSES-COMMUTE
#24Y(02 00 00 00 00 03 90 02 91 02 C0 33 1E 08 90 01 91 03 C0 33 19 03 19 03)
#Y(SECLASSES-COMMUTE-DISJOINT-P
#35Y(02 00 00 00 00 03 9A 54 1D 17 99 54 1D 13 A9 02 55 54 1E 0D A8 02 55 54 1E 07 A9 A9
2F 00 54 19 03 19 03
)
INTERSECTION
) ) )
#Y(#:TOP-LEVEL-FORM-92 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
GET-FUNNAME-STRING+PACK REMOVE-OLD-DEFINITIONS
#Y(GET-FUNNAME-STRING+PACK
#41Y(01 00 00 00 00 02 99 1F 1A D5 D6 90 03 6E 7E D7 9D 57 74 6E 7E D8 6F 05 23 9A 57 56 14
6E 7C 3F 02 19 02 A8 6E 7E 9A 1A 73
)
STRING "(" " " ")"
) )
#Y(#:TOP-LEVEL-FORM-93 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SYMBOL-SUFFIX
REMOVE-OLD-DEFINITIONS
#Y(SYMBOL-SUFFIX
#73Y(02 00 00 00 00 03 A9 8B 03 08 A9 8A 7C 04 A8 84 00 28 A9 2E 01 41 02 AA 8A 03 22 AA 8A
04 0C AA 37 0B 79 06 C2 FA 79 05 7C 85 03 D8 A9 D9 AD 6F 03 23 8E 01 0E A7 30 CA 19 06
99 19 03 AA 7D 7E 03 1A 68 A7 A9 30 D3 19 06
)
FUNCTION-NAME-P GET-FUNNAME-STRING+PACK 10. STRING "-"
) )
#Y(#:TOP-LEVEL-FORM-94 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-COMMENT
REMOVE-OLD-DEFINITIONS
#Y(C-COMMENT
#31Y(01 00 00 00 01 17 0E 00 1B 09 0E 02 14 8E 00 07 00 19 04 0E 01 1A 75 95 03 A8 AC 9D 97
02 04
)
*COMPILE-VERBOSE* *C-ERROR-OUTPUT* *C-LISTING-OUTPUT* FORMAT
) )
#Y(#:TOP-LEVEL-FORM-95 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *WARNING-COUNT*)
*WARNING-COUNT*
)
#Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-WARN
REMOVE-OLD-DEFINITIONS
#Y(C-WARN
#68Y(01 00 00 00 01 17 D5 D6 AB 7E 02 23 02 67 02 31 89 0F 02 0E 03 1B 09 0E 05 14 8E 00 07
00 19 04 0E 04 1A 75 95 06 A8 AC DC 89 50 13 67 07 DD A8 31 2E 16 01 1C 09 67 07 DD A8
DE 31 2A 16 01 14 9E 97 03 04
)
STRING "~%WARNING~@[ in function ~S~] :~%" *WARNING-COUNT* *COMPILE-WARNINGS*
*C-ERROR-OUTPUT* *C-LISTING-OUTPUT* FORMAT *FUNC* FNODE 1.
) )
#Y(#:TOP-LEVEL-FORM-97 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *ERROR-COUNT*)
*ERROR-COUNT*
)
#Y(#:TOP-LEVEL-FORM-98 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-ERROR
REMOVE-OLD-DEFINITIONS
#Y(C-ERROR
#78Y(01 00 00 00 01 17 D5 D6 AB 7E 02 23 02 67 02 31 89 0F 02 D8 89 50 13 67 03 D9 A8 31 2E
16 01 1C 09 67 03 D9 A8 DA 31 2A 16 01 14 8F 00 0D 0E 06 1C 09 A7 67 07 37 03 30 B7 0F
07 95 08 67 09 AC AA 9E 36 03 16 01 DF E0 E1 E2 2C 03 0E 4F
)
STRING "~%ERROR~@[ in function ~S~] :~%" *ERROR-COUNT* *FUNC* FNODE 1. *COMPILING-FROM-FILE*
*FUNCTIONS-WITH-ERRORS* FORMAT *C-ERROR-OUTPUT* C-ERROR ERROR (NIL) ((NIL)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-99 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-EVAL-WHEN-COMPILE
REMOVE-OLD-DEFINITIONS
#Y(C-EVAL-WHEN-COMPILE
#42Y(01 00 00 00 00 02 0E 00 1C 1B 0E 01 1C 17 67 01 30 8B A8 37 0B 7A 01 F6 F8 F9 FD FC 79
09 FE 7A 05 67 01 30 80 A8 30 5C 19 02
)
*COMPILING-FROM-FILE* *LIBOUTPUT-STREAM*
) )
#Y(#:TOP-LEVEL-FORM-100 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-CONSTANTP
REMOVE-OLD-DEFINITIONS
#Y(C-CONSTANTP
#84Y(01 00 00 00 00 02 99 1F 1B 90 01 C2 55 1E 80 42 91 01 31 01 1E 3C 99 57 57 54 19 02 02
19 02 A8 30 5F 19 02 A8 31 05 1D 29 A8 31 18 1D 24 A8 31 04 1D 1F A8 31 1E 1D 1A A8 31
03 1E 15 A8 8A 7F 5B A8 6E 7C 0E 00 21 57 A8 67 01 37 03 30 BA 54 1A 47 19 02
)
*LISP-PACKAGE* *CONSTANT-SPECIAL-VARS* QUOTE
) )
#Y(#:TOP-LEVEL-FORM-101 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-CONSTANT-VALUE
REMOVE-OLD-DEFINITIONS
#Y(C-CONSTANT-VALUE
#66Y(01 00 00 00 00 02 99 20 34 A8 8A 05 14 A8 8A 18 10 A8 8A 04 0C A8 8A 1E 08 A8 8B 03 1D
A8 8B 7F 08 99 19 02 A8 30 4F 19 02 A8 6E 7C 0E 00 21 74 A8 67 01 37 03 30 BA 57 19 02
00 19 02 99 57 56 19 02
)
*LISP-PACKAGE* *CONSTANT-SPECIAL-VARS*
) )
#Y(#:TOP-LEVEL-FORM-102 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANODE-CONSTANTP
REMOVE-OLD-DEFINITIONS
#Y(ANODE-CONSTANTP
#47Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A7 31 01 1E 1D 98 57 54 1E 18 90 00 98 20 08 D5 A8 8A
2E 09 00 19 04 90 00 C2 55 19 04 A7 28 01 05 59 19 03
)
ANODE 3. CONST
) )
#Y(#:TOP-LEVEL-FORM-103 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANODE-CONSTANT
REMOVE-OLD-DEFINITIONS
#Y(ANODE-CONSTANT
#25Y(01 00 00 00 00 02 D5 A9 D6 31 2A 74 98 20 05 A7 28 01 04 72 98 57 56 19 03) ANODE 3.
) )
#Y(#:TOP-LEVEL-FORM-104 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANODE-CONSTANT-VALUE
REMOVE-OLD-DEFINITIONS
#Y(ANODE-CONSTANT-VALUE #16Y(01 00 00 00 00 02 A8 6B 00 D6 A8 D7 31 2A 19 03) ANODE-CONSTANT
CONST 1.
) )
#Y(#:TOP-LEVEL-FORM-105 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NEW-CONST
REMOVE-OLD-DEFINITIONS #Y(NEW-CONST #12Y(01 00 00 00 00 02 D5 A9 2F 01 19 02) :VALUE MAKE-CONST)
)
#Y(#:TOP-LEVEL-FORM-106 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-LABEL
REMOVE-OLD-DEFINITIONS
#Y(MAKE-LABEL #22Y(01 00 00 00 00 02 37 01 6E 82 A7 5F 30 53 A7 D5 AB 31 7A 15 19 02) FOR-VALUE)
)
#Y(#:TOP-LEVEL-FORM-107 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-SPECIAL-VAR
REMOVE-OLD-DEFINITIONS
#Y(MAKE-SPECIAL-VAR
#37Y(01 00 00 00 00 02 D5 A9 D6 60 D7 AD 6B 03 D9 AF 84 03 07 00 14 2C 08 09 19 02 DA B0 6B
06 DC B2 2C 04 08 1A 6F
)
:NAME :SPECIALP :CONSTANTP C-CONSTANTP :CONSTANT :VALUE C-CONSTANT-VALUE :FORM MAKE-CONST
MAKE-VAR
) )
#Y(#:TOP-LEVEL-FORM-108 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TEST-LIST
REMOVE-OLD-DEFINITIONS
#Y(TEST-LIST
#64Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3C 01 AA 8B 08 06 AA 30 9C 57 1C 04 D6 AB 2F 02 AA 6E
41 AA 8D 01 30 0E 8F 01 08 AA 6E 41 A9 8D 01 2F 0C 00 19 04 D8 AB 2F 02 8F 01 76 1A 6C
D9 AB 2F 02 19 04
)
0. "Code contains dotted list ~S" C-ERROR "Form too short, too few arguments: ~S"
"Form too long, too many arguments: ~S"
) )
#Y(#:TOP-LEVEL-FORM-109
#65Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 DA DB DC C8
76 DE CA 76 CB 78 04 A7 1A 0F 90 00 90 00 91 01 A8 AD A9 30 65 16 03 7F 00 98 20 6E 16 02
31 75 C0 19 01
)
C-FORM-TABLE "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT C-FORM-TABLE
(LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
(MAPC #'(LAMBDA (ACONS) (SETF (GETHASH (CAR ACONS) HASHTABLE) (CDR ACONS)))
`((QUOTE . C-QUOTE) (PROGN . C-PROGN) (LET . ,#'(LAMBDA NIL (C-LET/LET* NIL)))
(LET* . ,#'(LAMBDA NIL (C-LET/LET* T))) (IF . C-IF) (SETQ . C-SETQ) (BLOCK . C-BLOCK)
(RETURN-FROM . C-RETURN-FROM) (TAGBODY . C-TAGBODY) (GO . C-GO) (FUNCTION . C-FUNCTION)
(MULTIPLE-VALUE-BIND . C-MULTIPLE-VALUE-BIND) (MULTIPLE-VALUE-SETQ . C-MULTIPLE-VALUE-SETQ)
(AND . C-AND) (OR . C-OR) (WHEN . C-WHEN) (UNLESS . C-UNLESS) (COND . C-COND)
(PSETQ . C-PSETQ) (MULTIPLE-VALUE-CALL . C-MULTIPLE-VALUE-CALL) (PROG1 . C-PROG1)
(PROG2 . C-PROG2) (THE . C-THE) (CATCH . C-CATCH) (THROW . C-THROW)
(UNWIND-PROTECT . C-UNWIND-PROTECT) (PROGV . C-PROGV)
(MULTIPLE-VALUE-LIST . C-MULTIPLE-VALUE-LIST)
(MULTIPLE-VALUE-PROG1 . C-MULTIPLE-VALUE-PROG1) (FLET . C-FLET) (LABELS . C-LABELS)
(MACROLET . C-MACROLET) (SYMBOL-MACROLET . C-SYMBOL-MACROLET)
(COMPILER-LET . C-COMPILER-LET) (EVAL-WHEN . C-EVAL-WHEN) (DECLARE . C-DECLARE)
(LOAD-TIME-VALUE . C-LOAD-TIME-VALUE) (LOCALLY . C-LOCALLY) (CASE . C-CASE)
(%GENERIC-FUNCTION-LAMBDA . C-%GENERIC-FUNCTION-LAMBDA)
(%OPTIMIZE-FUNCTION-LAMBDA . C-%OPTIMIZE-FUNCTION-LAMBDA)
(CLOS:GENERIC-FLET . C-GENERIC-FLET) (CLOS:GENERIC-LABELS . C-GENERIC-LABELS)
(FUNCALL . C-FUNCALL) (%FUNCALL . C-FUNCALL) (APPLY . C-APPLY) (+ . C-PLUS) (- . C-MINUS)
(SVSTORE . C-SVSTORE) (EQ . C-EQ) (EQL . C-EQL) (EQUAL . C-EQUAL) (MAPCAR . C-MAPCAR)
(MAPLIST . C-MAPLIST) (MAPC . C-MAPC) (MAPL . C-MAPL) (MAPCAN . C-MAPCAN)
(MAPCON . C-MAPCON) (MAPCAP . C-MAPCAP) (MAPLAP . C-MAPLAP) (TYPEP . C-TYPEP)
) )
HASHTABLE
))
WARN #.#'EQ #1=(QUOTE . C-QUOTE) #2=(PROGN . C-PROGN) LET
#Y(#:TOP-LEVEL-FORM-109-1 #11Y(00 00 00 00 00 01 5F 2E 00 19 01) C-LET/LET*) LET*
#Y(#:TOP-LEVEL-FORM-109-2 #11Y(00 00 00 00 00 01 60 2E 00 19 01) C-LET/LET*)
#3=((IF . C-IF) (SETQ . C-SETQ) (BLOCK . C-BLOCK) (RETURN-FROM . C-RETURN-FROM)
(TAGBODY . C-TAGBODY) (GO . C-GO) (FUNCTION . C-FUNCTION)
(MULTIPLE-VALUE-BIND . C-MULTIPLE-VALUE-BIND) (MULTIPLE-VALUE-SETQ . C-MULTIPLE-VALUE-SETQ)
(AND . C-AND) (OR . C-OR) (WHEN . C-WHEN) (UNLESS . C-UNLESS) (COND . C-COND)
(PSETQ . C-PSETQ) (MULTIPLE-VALUE-CALL . C-MULTIPLE-VALUE-CALL) (PROG1 . C-PROG1)
(PROG2 . C-PROG2) (THE . C-THE) (CATCH . C-CATCH) (THROW . C-THROW)
(UNWIND-PROTECT . C-UNWIND-PROTECT) (PROGV . C-PROGV)
(MULTIPLE-VALUE-LIST . C-MULTIPLE-VALUE-LIST)
(MULTIPLE-VALUE-PROG1 . C-MULTIPLE-VALUE-PROG1) (FLET . C-FLET) (LABELS . C-LABELS)
(MACROLET . C-MACROLET) (SYMBOL-MACROLET . C-SYMBOL-MACROLET)
(COMPILER-LET . C-COMPILER-LET) (EVAL-WHEN . C-EVAL-WHEN) (DECLARE . C-DECLARE)
(LOAD-TIME-VALUE . C-LOAD-TIME-VALUE) (LOCALLY . C-LOCALLY) (CASE . C-CASE)
(%GENERIC-FUNCTION-LAMBDA . C-%GENERIC-FUNCTION-LAMBDA)
(%OPTIMIZE-FUNCTION-LAMBDA . C-%OPTIMIZE-FUNCTION-LAMBDA)
(CLOS:GENERIC-FLET . C-GENERIC-FLET) (CLOS:GENERIC-LABELS . C-GENERIC-LABELS)
(FUNCALL . C-FUNCALL) (%FUNCALL . C-FUNCALL) (APPLY . C-APPLY) (+ . C-PLUS) (- . C-MINUS)
(SVSTORE . C-SVSTORE) (EQ . C-EQ) (EQL . C-EQL) (EQUAL . C-EQUAL) (MAPCAR . C-MAPCAR)
(MAPLIST . C-MAPLIST) (MAPC . C-MAPC) (MAPL . C-MAPL) (MAPCAN . C-MAPCAN)
(MAPCON . C-MAPCON) (MAPCAP . C-MAPCAP) (MAPLAP . C-MAPLAP) (TYPEP . C-TYPEP)
) )
#Y(#:TOP-LEVEL-FORM-110 #12Y(00 00 00 00 00 01 D5 30 E2 00 19 01)
#Y(#:TOP-LEVEL-FORM-110-1
#26Y(01 00 00 00 00 02 A8 89 52 08 A8 67 00 37 01 89 64 03 00 19 02 D5 2E 01 19 02)
C-FORM-TABLE COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-111 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FORM
REMOVE-OLD-DEFINITIONS
#Y(C-FORM
#319Y(01 00 01 00 00 08 9A 10 00 3A 04 02 0E 01 10 01 C2 4D 81 19 0E 00 1F 80 41 0E 00 74 A7
84 0A 80 81 98 1F 81 01 90 00 24 1C 80 FB F2 ED A9 77 02 0E 00 57 5D 02 14 37 01 27 4C
1A 80 ED A7 DB 31 27 1A 72 67 00 67 03 6C 04 A7 84 05 70 67 00 2E 07 1A 80 D6 2D 08 4E
1A 80 D3 67 00 8A 03 64 67 00 8A 05 70 67 00 8A 18 6B 67 00 8A 04 66 67 00 8A 1E 61 DE
67 00 2F 02 4E 1A 80 B1 14 35 00 1A 80 5A 67 00 67 03 67 0D 6F 02 00 6D 5A 37 01 27 FF
74 1A 80 47 AB 67 0E 00 76 0E 00 75 2C 03 15 1A 3A A7 2E 0B 41 03 8E 02 38 AA 67 0C 37
01 6D 64 8E 00 48 AB 8B 03 04 AB 88 58 46 AB 67 0E E4 A8 E5 7D 2A 00 89 FF 11 AB 84 11
0D E7 AC 77 02 67 13 E9 37 02 88 B3 FF BC AB 2E 16 16 05 4E 1A 80 4B 9A 25 17 27 67 00
67 03 67 0D 6F 02 00 6D 5A 37 01 27 FF 10 1A 18 ED AB 77 02 0E 00 75 2F 19 1A 0D AA A8
0E 00 75 2C 03 15 1A 03 EF 2E 1B 16 04 4E 1A 18 F4 A8 61 21 5F 31 2B F4 A8 F5 61 22 31
2B 15 1A 15 F3 A8 2F 02 16 01 4E 14 0E 01 1B 08 F4 A8 F5 31 2A 57 1C 5B 15 12 02 19 03
)
*FORM* *FOR-VALUE* C-ERROR *VENV* VENV-SEARCH-MACRO SYMBOL-MACRO-P 0. C-VAR C-CONST
"Invalid form: ~S" FUNCTION-NAME-P FENV-SEARCH C-FORM-TABLE *FENV* *FUNC* FNODE 1.
DECLARED-NOTINLINE IN-DEFUN *DENV* #.#'EQUAL C-LOCAL-FUNCTION-CALL C-GLOBAL-FUNCTION-CALL
#S(HASH-TABLE EQ (LOCAL . 30.) (GLOBAL . 19.) (MACRO . 1.)) FUNCTION C-FUNCALL-NOTINLINE
C-FORM COMPILER-ERROR LAMBDA %FUNCALL "Not the name of a function: ~S" ANODE 2. 3. (NIL)
) )
#Y(#:TOP-LEVEL-FORM-112 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-NIL
REMOVE-OLD-DEFINITIONS
#Y(C-NIL #14Y(00 00 00 00 00 01 5F D5 D6 2C 03 02 19 01) (NIL) ((NIL)) MK-ANODE)
)
#Y(#:TOP-LEVEL-FORM-113 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-CONST
REMOVE-OLD-DEFINITIONS
#Y(C-CONST #22Y(00 00 00 00 00 01 D5 D6 D5 67 02 6B 03 77 02 77 01 2C 03 04 19 01) CONST (NIL)
*FORM* NEW-CONST MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-114 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-VAR
REMOVE-OLD-DEFINITIONS
#Y(C-VAR
#303Y(01 00 00 00 00 02 A8 2E 00 41 03 8E 02 14 D6 AC 2F 02 0E 03 1C 0A AB 67 04 DA 37 02 30
B7 0F 04 C6 F8 9A 25 07 81 01 AD 5C 01 1A 23 00 1A 0B E1 E2 B0 6B 0E E4 B2 8A 7F 73 A3
14 2C 04 10 1A 1E AB 6B 08 DE 0E 0A 1C 06 DE A9 E0 8B 2A 59 00 14 00 76 0E 0A 1C 0F DE
AA E0 8A 2A 53 E6 A0 14 77 02 5C 01 1A 01 00 14 2C 03 12 19 06 02 1A 19 E1 AB 6B 13 77
02 E9 E1 AC 6B 13 77 02 03 15 5D 03 1A 0E DE 0E 0A 1B 65 00 14 00 76 0E 0A 1B 60 00 14
2C 03 12 19 05 A9 5C 01 1A 17 EB AB 67 17 67 18 77 04 5C 01 1A 13 16 01 1A 80 79 DE 0E
0A 1B 65 00 14 00 76 0E 0A 1B 62 00 14 6A 03 12 A7 DE AB EE 31 2A 76 DE AB EE AA 31 2B
16 01 0E 0A 1C 80 53 0E 1A 1B 80 4E DE AA F0 60 31 2B DE AA F1 6E 2A 6B 1D 0E 1E 21 06
DE AA F4 60 31 2B DE AA F4 8B 2A 31 67 17 8F 00 24 A7 DE AC F5 31 2A 21 FF A5 90 00 61
21 A8 31 2E 16 01 1C 0B 90 00 61 21 A8 E0 60 31 2B 16 01 7F 00 8E 00 5C 61 22 61 23 2F
24 16 01 15 19 05 61 22 D5 2F 24 19 05
)
VENV-SEARCH
"~S is neither declared nor bound,~@
it will be treated as if it were declared SPECIAL."
C-WARN *COMPILING-FROM-FILE* *UNKNOWN-FREE-VARS* #.#'EQ SPECIAL
#S(HASH-TABLE EQ (T . 135.) (LOCAL . 93.) (SPECIAL . 27.)) MAKE-SPECIAL-VAR VAR *FOR-VALUE*
3. CONST :VALUE C-CONSTANT-VALUE :FORM MAKE-CONST GETVALUE MK-ANODE NEW-CONST (PUSH)
((SVREF)) GET *VENVC* *STACKZ* 5. *NO-CODE* 6. 10. STACKZ-FUN *FUNC* 9. 11. FNODE C-VAR
"INVISIBLE" COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-115 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-VARSET
REMOVE-OLD-DEFINITIONS
#Y(C-VARSET
#258Y(02 00 00 00 00 03 A9 2E 00 41 03 8E 02 06 D6 AD 2F 02 C3 F8 9A 25 04 80 E3 00 1A 15 DE
B0 2F 02 CA 1A 1B AC 6B 05 DB 5F DC AA DD 8A 2A 6B AF 5C 01 76 DC AA DD 8A 2A 64 E0 B0
77 02 5C 01 14 2C 03 0C 19 07 DB 5F 02 76 E2 E3 AC 6B 0F 77 02 E5 E3 AD 6B 0F 77 02 D1
78 04 2C 03 0C 19 06 DC AA EA 60 31 2B 0E 16 1C 26 1A 80 8E 16 01 1A 80 74 DB 5F AA 5C
01 76 E7 AB 67 13 67 14 77 04 77 01 6A 03 0C DC AA EA 8B 2A 55 0E 16 1B 80 6B DC AA DD
5F 31 2B AC 99 76 A7 DC AC EC 31 2A 76 DC AC EC AA 31 2B 16 02 DC AA ED 6E 2A 6B 19 0E
1A 21 33 DC AA F0 60 31 2B 67 13 8F 00 22 A7 DC AC F1 31 2A 21 FF A6 90 00 F2 A8 31 2E
16 01 1C 0A 90 00 F2 A8 DD 60 31 2B 16 01 7F 00 8E 00 5E F3 F4 2F 20 16 01 61 21 DC AB
61 22 6E 2A 37 05 6E 4C DC AB 61 22 AA 31 2B 16 01 15 19 06 F3 D5 2F 20 19 06
)
VENV-SEARCH
"~S is neither declared nor bound,~@
it will be treated as if it were declared SPECIAL."
C-WARN SPECIAL #S(HASH-TABLE EQ (T . 89.) (LOCAL . 45.) (SPECIAL . 12.)) MAKE-SPECIAL-VAR
VARSET VAR 3.
"The constant ~S may not be assigned to.~@
The assignment will be ignored."
((VALUES1)) SETVALUE MK-ANODE (PUSH) CONST NEW-CONST (PUSH) ((SVSET)) SET *VENVC* *STACKZ* 5.
*NO-CODE* 7. 10. STACKZ-FUN *FUNC* 9. 11. FNODE C-VARSET "INVISIBLE" COMPILER-ERROR
#Y(C-VARSET-1 #19Y(01 00 00 00 00 02 90 01 D5 A8 D6 6E 2A 67 02 30 B6 19 03) VAR 10. *STACKZ*
)
8.
) )
#Y(#:TOP-LEVEL-FORM-116 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-FUNNAME-CONST
REMOVE-OLD-DEFINITIONS
#Y(MAKE-FUNNAME-CONST
#34Y(01 00 00 00 00 02 99 1F 14 99 57 74 D6 A8 6B 02 D8 D7 D9 AC 77 02 77 02 2C 04 05 19 03
A8 2E 00 19 02
)
NEW-CONST :VALUE GET-SETF-SYMBOL :FORM QUOTE MAKE-CONST
) )
#Y(#:TOP-LEVEL-FORM-117 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
C-NORMAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-NORMAL-FUNCTION-CALL
#95Y(01 00 00 00 00 02 67 00 D6 2F 02 0E 00 75 6E 41 0E 03 10 03 0E 00 75 D9 77 01 8F 01 19
90 01 7F 02 A7 DA 6C 06 A7 80 02 DC 80 02 D6 0E 03 58 0F 03 16 02 8E 01 67 9D 25 08 09
C9 1A 0A CA 1A 07 CB 1A 04 E1 AD 5C 02 14 AF 6B 0D 77 01 6F 02 20 80 00 E1 E3 A9 6E 43
2C 03 0F 16 02 11 19 03
)
*FORM* 1. TEST-LIST *STACKZ* (CALLP) ONE C-FORM (PUSH)
#S(HASH-TABLE EQ (2. . 7.) (1. . 4.) (0. . 1.)) (CALL0) (CALL1) (CALL2) CALL
MAKE-FUNNAME-CONST (T . T) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-118 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FDESCR-SIGNATURE
REMOVE-OLD-DEFINITIONS
#Y(FDESCR-SIGNATURE
#82Y(01 00 00 00 00 02 99 57 1B 3C 90 01 D7 A8 D8 6E 2A D7 A9 D9 6E 2A D7 AA DA 6E 2A D7 AB
DB 6E 2A D7 AC DC 6E 2A D7 AD DD 6E 2A 3F 06 19 03 99 57 57 43 41 0D B3 6E 41 B3 6E 41
B1 C1 55 54 14 B1 B1 AE 3F 06 19 0F 99 57 74 23 00 62 99 57 57 43 19 02
)
LABELS 0. FNODE 10. 11. 12. 13. 14. 15.
) )
#Y(#:TOP-LEVEL-FORM-119 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TEST-ARGUMENT-SYNTAX
REMOVE-OLD-DEFINITIONS
#Y(TEST-ARGUMENT-SYNTAX
#214Y(09 00 00 00 00 00 B0 8B 08 06 B0 30 9C 57 1C 06 D5 AF B2 2C 03 01 B0 6E 41 AE AE 6F 02
33 8E 0A 06 AF A9 8D 01 2F 30 8E 06 09 8E 05 06 A8 A8 8D 01 2F 24 8F 05 35 A8 A8 8C 01
2F 32 8E 06 32 A8 A8 7E 01 34 01 A7 B3 7C 9B 0B A8 8A 88 26 DC B1 B4 2C 03 03 00 19 0C
D7 B1 AA B4 8E 0A 01 A1 14 B4 AD 6D FE B5 AE 2C 08 03 1A 69 C4 19 0C C5 19 0C C6 19 0C
B2 AB 5F 8F 02 80 55 90 02 A7 85 08 0F A7 2E 09 F6 14 8A 7F 20 DF 90 04 B6 2C 03 03 C6
19 10 7A 02 8F 02 24 1A 2C E2 A8 B5 B1 6E 41 CE 55 14 B2 2C 05 01 19 0F A7 24 0B 0C 9B
57 74 85 08 5D 9B 57 74 84 09 5A 8E 02 0A A7 B0 E1 37 02 88 B3 02 98 F7 16 01 9A 57 57
F8 8E 02 FF AB 8E 00 47 C5 19 0F
)
"argument list to function ~S is dotted: ~S" C-ERROR
"~S called with ~S~:[~; or more~] arguments, but it requires ~
~:[~:[from ~S to ~S~;~S~]~;at least ~*~S~] arguments."
C-WARN NO-KEYS STATIC-KEYS DYNAMIC-KEYS
"keyword arguments to function ~S should occur pairwise: ~S" C-CONSTANTP C-CONSTANT-VALUE
"argument ~S to function ~S is not a keyword" :ALLOW-OTHER-KEYS #.#'EQ
"keyword ~S is not allowed for function ~S.~
~%The only allowed keyword~:[s are ~{~S~#[~; and ~S~:;, ~]~}~; is ~{~S~}~]."
1.
) )
#Y(#:TOP-LEVEL-FORM-120 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
C-DIRECT-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-DIRECT-FUNCTION-CALL
#995Y(0A 00 00 00 00 00 5F 8F 03 04 A1 25 01 24 C0 1A 22 7A 00 C2 1A 1D C3 1A 1A C4 1A 17 02
10 07 00 10 06 B0 35 00 12 02 DD B4 B4 32 02 20 76 2E 09 19 0D C5 14 0E 06 1B 04 98 57
1C 60 B3 6E 41 B1 B1 6F 02 33 A9 5F 0E 0A 10 0A E0 AE AE 6F 01 32 1A 80 F2 E7 E8 2F 14
8F 0D 80 52 1A 80 4B A8 31 89 1A 0E AC AE 6F 01 34 90 13 E1 6C 09 8E 10 6E 99 14 0E 0A
58 0F 0A B7 A9 BA AB 6F 01 32 6A 03 16 AE E2 AA E3 6E 2A 2F 0F FD A8 80 06 AE E2 A9 E3
6E 2A 2F 0F FD A7 80 06 16 03 8F 0D 82 CE 1A 81 31 8E 0B FF AD 8F 0D 04 E7 EA 2F 14 AC
AE 8C 01 30 FF AF 0E 0A 10 0A BD 8F 00 21 90 00 7F 01 E1 6C 09 B0 E2 A9 E3 6E 2A 2F 0F
FF A7 80 08 16 01 EC 80 07 E6 0E 0A 58 0F 0A 8E 00 5F 90 16 E1 6C 09 B0 E2 A9 E3 6E 2A
2F 0F FF A7 80 08 16 01 ED B2 B2 6F 01 34 77 02 80 07 16 01 11 03 19 1A 80 9A AC AE 6F
01 34 EF A8 77 02 80 04 A7 0E 0A 58 0F 0A 16 01 8F 0E 80 B6 1A 80 40 F1 80 03 03 1D 1A
80 78 90 15 7F 16 A7 E1 6C 09 AF E2 A9 E3 6E 2A 2F 0F FE A7 80 07 16 02 E5 80 05 E6 0E
0A 58 0F 0A 81 01 A8 A8 8D 01 30 59 16 02 8E 12 FF 51 AC AE 8C 01 2E FF AA 8F 0E 80 73
8E 0B 80 4B 8F 13 FF B8 0E 0A 10 0A BD 8F 00 21 90 00 7F 01 E1 6C 09 B0 E2 A9 E3 6E 2A
2F 0F FF A7 80 08 16 01 F3 80 07 E6 0E 0A 58 0F 0A 8E 00 5F F4 B2 B2 6F 01 34 77 02 80
07 16 01 11 03 20 14 80 03 E6 0E 0A 58 0F 0A 8F 0D 81 C4 1A 28 8F 13 21 90 13 7F 14 E1
6C 09 AC E2 A9 E3 6E 2A 2F 0F FB A7 80 04 16 01 F0 80 03 E6 0E 0A 58 0F 0A 8E 13 5F 8F
0D 81 9A B3 6E 41 A7 5F B6 1A 13 CC 1A 80 41 90 00 A7 82 04 14 60 77 03 80 02 16 01 7F
00 98 20 6E 16 01 A7 30 A3 16 01 F6 5F 8F 16 80 49 90 16 7F 17 6B 21 A7 AA 61 22 37 02
6D BA 98 57 57 74 90 19 7F 1A E0 0E 0A 58 10 0A AA 8E 05 FF BC 00 14 6C 09 B6 E2 A9 E3
6E 2A 2F 0F 09 0F 60 9F 57 74 A9 67 0A 77 04 80 08 16 01 11 9A 57 75 5F 30 A8 16 04 8E
16 FF B7 A7 7D 43 00 E0 E0 5F AA 8F 00 80 5A 90 00 98 56 1C 80 4B 98 57 56 1C 0D 98 57
74 AF E6 AE 6F 02 34 8D 01 2B 39 98 57 57 74 AD 1A 0F 16 02 1A 2E A8 99 56 57 57 74 87
23 73 7F 00 A7 9C 22 71 16 02 98 57 57 57 74 AC 30 A8 98 57 57 74 80 0B 98 57 56 1C 06
61 24 80 0B 81 04 A7 5F 30 A8 16 01 7F 00 8E 00 FF A6 16 01 AA 7D 43 03 14 8F 00 80 59
90 00 98 56 1C 80 4A 98 57 56 1C 08 98 57 74 AB 8D 01 2B 3D 98 57 57 74 AD 1A 0F 16 02
1A 32 A8 99 56 57 57 74 87 23 73 7F 00 A7 9C 22 71 16 02 98 57 56 1C 06 61 25 80 02 81
03 98 57 57 57 74 AF AC 6F 01 34 30 A8 98 57 57 74 80 02 A7 5F 30 A8 16 01 7F 00 8E 00
FF A7 16 01 AA 7D 43 03 AC A9 6F 01 34 A7 AB 8D 01 2E 0A EF A8 AC 6F 01 34 77 02 80 0A
AB 5F 1A 28 83 01 00 56 1C 20 98 57 57 57 74 AA 30 A8 98 57 57 74 80 0C 98 57 56 1C 0D
61 26 99 57 74 AD 6F 01 34 77 02 80 0C 7F 01 A8 89 92 54 16 03 A7 B1 7C A2 09 16 05 A7
0E 0A 58 0F 0A 16 01 AA B2 72 00 7C A2 03 11 8F 05 80 5E 61 27 A8 8D 00 26 80 56 5F A8
5F 1A 0F 83 01 00 E2 A8 8B 2E 05 A7 6B 28 80 02 7F 01 A8 89 92 6D 16 02 A7 7D 43 00 5F
46 29 30 A9 2B 2A 01 10 2B BD A0 36 00 42 11 F9 47 61 2C 5F A9 1A 0D 90 00 61 2D A8 77
02 80 02 16 01 7F 00 98 20 70 16 01 A7 30 A3 16 01 76 2E 2E 19 13 1B 5C 16 02 61 2F B6
77 02 A9 A9 2C 03 30 19 11
)
(T . T)
#S(HASH-TABLE EQ (LOG10 . 12.) (LOG2 . 12.) (BYTE-POSITION . 12.) (BYTE-SIZE . 12.)
(BYTE . 12.) (FLOAT . 12.) (ATANH . 12.) (ACOSH . 12.) (ASINH . 12.) (TANH . 12.)
(COSH . 12.) (SINH . 12.) (ATAN . 12.) (ACOS . 12.) (ASIN . 12.) (CIS . 12.) (TAN . 12.)
(COS . 12.) (SIN . 12.) (SIGNUM . 12.) (PHASE . 12.) (ABS . 12.) (SQRT . 12.) (LOG . 12.)
(EXPT . 12.) (EXP . 12.) (FROUND . 12.) (FTRUNCATE . 12.) (FCEILING . 12.) (FFLOOR . 12.)
(GENSYM . 12.) (SPECIAL-VARIABLE-P . 12.) (KEYWORDP . 12.) (SYMBOL-PLIST . 12.)
(SYMBOL-PACKAGE . 12.) (GET-PROPERTIES . 12.) (GETF . 12.) (GET . 12.) (FILE-LENGTH . 12.)
(STREAM-ELEMENT-TYPE . 12.) (OUTPUT-STREAM-P . 12.) (INPUT-STREAM-P . 12.)
(MAKE-BUFFERED-OUTPUT-STREAM . 12.) (MAKE-BUFFERED-INPUT-STREAM . 12.)
(MAKE-STRING-PUSH-STREAM . 12.) (MAKE-STRING-OUTPUT-STREAM . 12.)
(STRING-INPUT-STREAM-INDEX . 12.) (MAKE-STRING-INPUT-STREAM . 12.)
(MAKE-ECHO-STREAM . 12.) (MAKE-TWO-WAY-STREAM . 12.) (MAKE-CONCATENATED-STREAM . 12.)
(MAKE-BROADCAST-STREAM . 12.) (MAKE-SYNONYM-STREAM . 12.) (CONCATENATE . 12.)
(REVERSE . 12.) (LENGTH . 12.) (COPY-SEQ . 12.) (SUBSEQ . 12.) (ELT . 12.)
(SEQUENCEP . 12.) (CLOS:SLOT-EXISTS-P . 12.) (CLOS::ALLOCATE-STD-INSTANCE . 12.)
(MAKE-SYMBOL-MACRO . 12.) (%MAKE-CLOSURE . 12.) (MAKE-CODE-VECTOR . 12.)
(CLOSURE-CONSTS . 12.) (CLOSURE-CODEVEC . 12.) (CLOSURE-NAME . 12.)
(%STRUCTURE-TYPE-P . 12.) (%COPY-STRUCTURE . 12.) (%MAKE-STRUCTURE . 12.)
(%STRUCTURE-REF . 12.) (%RECORD-LENGTH . 12.) (%RECORD-REF . 12.) (COERCE . 12.)
(CLOS:CLASS-OF . 12.) (CLOS::CLASS-P . 12.) (TYPE-OF . 12.) (COMMONP . 12.)
(CLOS::GENERIC-FUNCTION-P . 12.) (FUNCTIONP . 12.) (COMPILED-FUNCTION-P . 12.)
(EQUALP . 12.) (EQUAL . 12.) (FILE-AUTHOR . 12.) (FILE-WRITE-DATE . 12.) (DIRECTORY . 12.)
(PROBE-FILE . 12.) (TRUENAME . 12.) (NAMESTRING . 12.) (MAKE-PATHNAME . 12.)
(ENOUGH-NAMESTRING . 12.) (MERGE-PATHNAMES . 12.) (HOST-NAMESTRING . 12.)
(DIRECTORY-NAMESTRING . 12.) (FILE-NAMESTRING . 12.) (PATHNAME-VERSION . 12.)
(PATHNAME-TYPE . 12.) (PATHNAME-NAME . 12.) (PATHNAME-DIRECTORY . 12.)
(PATHNAME-DEVICE . 12.) (PATHNAME-HOST . 12.) (PATHNAME . 12.) (PARSE-NAMESTRING . 12.)
(FIND-ALL-SYMBOLS . 12.) (FIND-SYMBOL . 12.) (LIST-ALL-PACKAGES . 12.)
(PACKAGE-SHADOWING-SYMBOLS . 12.) (PACKAGE-USED-BY-LIST . 12.) (PACKAGE-USE-LIST . 12.)
(PACKAGE-NICKNAMES . 12.) (PACKAGE-NAME . 12.) (FIND-PACKAGE . 12.) (%%TIME . 12.)
(GET-INTERNAL-REAL-TIME . 12.) (GET-INTERNAL-RUN-TIME . 12.) (GET-UNIVERSAL-TIME . 12.)
(PAIRLIS . 12.) (TAILP . 12.) (LDIFF . 12.) (BUTLAST . 12.) (REVAPPEND . 12.)
(COPY-TREE . 12.) (COPY-ALIST . 12.) (COPY-LIST . 12.) (APPEND . 12.) (LAST . 12.)
(NTHCDR . 12.) (REST . 12.) (TENTH . 12.) (NINTH . 12.) (EIGHTH . 12.) (SEVENTH . 12.)
(SIXTH . 12.) (FIFTH . 12.) (FOURTH . 12.) (THIRD . 12.) (SECOND . 12.) (FIRST . 12.)
(NTH . 12.) (LIST-LENGTH . 12.) (CDDDDR . 12.) (CDDDAR . 12.) (CDDADR . 12.)
(CDDAAR . 12.) (CDADDR . 12.) (CDADAR . 12.) (CDAADR . 12.) (CDAAAR . 12.) (CADDDR . 12.)
(CADDAR . 12.) (CADADR . 12.) (CADAAR . 12.) (CAADDR . 12.) (CAADAR . 12.) (CAAADR . 12.)
(CAAAAR . 12.) (CDDDR . 12.) (CDDAR . 12.) (CDADR . 12.) (CDAAR . 12.) (CADDR . 12.)
(CADAR . 12.) (CAADR . 12.) (CAAAR . 12.) (CDDR . 12.) (CDAR . 12.) (CADR . 12.)
(CAAR . 12.) (CDR . 12.) (CAR . 12.) (LINE-POSITION . 12.)
(GET-DISPATCH-MACRO-CHARACTER . 12.) (GET-MACRO-CHARACTER . 12.) (SXHASH . 12.)
(HASH-TABLE-ITERATOR . 12.) (HASH-TABLE-COUNT . 12.) (GETHASH . 12.)
(MAKE-HASH-TABLE . 12.) (CONSTANTP . 12.) (MACRO-FUNCTION . 12.) (VALUES-LIST . 12.)
(FBOUNDP . 12.) (BOUNDP . 12.) (SYMBOL-FUNCTION . 12.) (SYMBOL-VALUE . 12.)
(MAKE-SYMBOL . 12.) (STRING-CONCAT . 12.) (SUBSTRING . 12.) (NAME-CHAR . 12.)
(STRING . 12.) (STRING-CAPITALIZE . 12.) (STRING-DOWNCASE . 12.) (STRING-UPCASE . 12.)
(STRING-BOTH-TRIM . 12.) (SEARCH-STRING-EQUAL . 12.) (SEARCH-STRING= . 12.)
(STRING-NOT-LESSP . 12.) (STRING-NOT-GREATERP . 12.) (STRING-GREATERP . 12.)
(STRING-LESSP . 12.) (STRING-NOT-EQUAL . 12.) (STRING-EQUAL . 12.) (STRING>= . 12.)
(STRING<= . 12.) (STRING> . 12.) (STRING< . 12.) (STRING/= . 12.) (STRING= . 12.)
(SCHAR . 12.) (CHAR . 12.) (CHARACTER . 12.) (MAKE-ARRAY . 12.) (FILL-POINTER . 12.)
(ARRAY-HAS-FILL-POINTER-P . 12.) (SBIT . 12.) (BIT . 12.) (ARRAY-ROW-MAJOR-INDEX . 12.)
(ARRAY-IN-BOUNDS-P . 12.) (ARRAY-TOTAL-SIZE . 12.) (ARRAY-DIMENSIONS . 12.)
(ARRAY-DIMENSION . 12.) (SVREF . 12.) (AREF . 12.) (SUBR-INFO . 12.) (DECIMAL-STRING . 9.)
(SYMBOL-NAME . 9.) (MAKE-LOAD-TIME-EVAL . 9.) (SOFTWARE-VERSION . 9.) (SOFTWARE-TYPE . 9.)
(LISP-IMPLEMENTATION-VERSION . 9.) (LISP-IMPLEMENTATION-TYPE . 9.) (ACONS . 9.)
(MAKE-LIST . 9.) (LIST* . 9.) (LIST . 9.) (CONS . 9.) (VALUES . 9.) (MAKE-STRING . 9.)
(VECTOR . 9.) (EXQUO . 4.) (! . 4.) (DEPOSIT-FIELD . 4.) (DPB . 4.) (MASK-FIELD . 4.)
(LDB-TEST . 4.) (LDB . 4.) (INTEGER-LENGTH . 4.) (LOGCOUNT . 4.) (ASH . 4.) (LOGBITP . 4.)
(LOGTEST . 4.) (LOGNOT . 4.) (BOOLE . 4.) (LOGORC2 . 4.) (LOGORC1 . 4.) (LOGANDC2 . 4.)
(LOGANDC1 . 4.) (LOGNOR . 4.) (LOGNAND . 4.) (LOGEQV . 4.) (LOGAND . 4.) (LOGXOR . 4.)
(LOGIOR . 4.) (IMAGPART . 4.) (REALPART . 4.) (COMPLEX . 4.) (INTEGER-DECODE-FLOAT . 4.)
(FLOAT-PRECISION . 4.) (FLOAT-DIGITS . 4.) (FLOAT-SIGN . 4.) (FLOAT-RADIX . 4.)
(SCALE-FLOAT . 4.) (DECODE-FLOAT . 4.) (REM . 4.) (MOD . 4.) (ROUND . 4.) (TRUNCATE . 4.)
(CEILING . 4.) (FLOOR . 4.) (DENOMINATOR . 4.) (NUMERATOR . 4.) (RATIONALIZE . 4.)
(RATIONAL . 4.) (ISQRT . 4.) (LCM . 4.) (GCD . 4.) (CONJUGATE . 4.) (1- . 4.) (1+ . 4.)
(/ . 4.) (* . 4.) (- . 4.) (+ . 4.) (MIN . 4.) (MAX . 4.) (>= . 4.) (<= . 4.) (> . 4.)
(< . 4.) (/= . 4.) (= . 4.) (EVENP . 4.) (ODDP . 4.) (MINUSP . 4.) (PLUSP . 4.)
(ZEROP . 4.) (CLOS::STD-INSTANCE-P . 4.) (SYMBOL-MACRO-P . 4.) (SIMPLE-BIT-VECTOR-P . 4.)
(SIMPLE-STRING-P . 4.) (SIMPLE-VECTOR-P . 4.) (VECTORP . 4.) (BIT-VECTOR-P . 4.)
(SIMPLE-ARRAY-P . 4.) (ARRAYP . 4.) (PACKAGEP . 4.) (CHARACTERP . 4.) (PATHNAMEP . 4.)
(HASH-TABLE-P . 4.) (READTABLEP . 4.) (RANDOM-STATE-P . 4.) (STREAMP . 4.) (COMPLEXP . 4.)
(REALP . 4.) (LONG-FLOAT-P . 4.) (DOUBLE-FLOAT-P . 4.) (SINGLE-FLOAT-P . 4.)
(SHORT-FLOAT-P . 4.) (FLOATP . 4.) (RATIONALP . 4.) (FIXNUMP . 4.) (INTEGERP . 4.)
(LISTP . 4.) (CLOSUREP . 4.) (NOT . 4.) (NULL . 4.) (NUMBERP . 4.) (STRINGP . 4.)
(SYMBOLP . 4.) (ATOM . 4.) (CONSP . 4.) (EQL . 4.) (EQ . 4.) (IDENTITY . 4.) (ENDP . 4.)
(SPECIAL-FORM-P . 4.) (CHAR-BIT . 4.) (CHAR-NAME . 4.) (INT-CHAR . 4.) (CHAR-INT . 4.)
(DIGIT-CHAR . 4.) (CHAR-DOWNCASE . 4.) (CHAR-UPCASE . 4.) (MAKE-CHAR . 4.)
(CODE-CHAR . 4.) (CHAR-FONT . 4.) (CHAR-BITS . 4.) (CHAR-CODE . 4.) (CHAR-NOT-LESSP . 4.)
(CHAR-NOT-GREATERP . 4.) (CHAR-GREATERP . 4.) (CHAR-LESSP . 4.) (CHAR-NOT-EQUAL . 4.)
(CHAR-EQUAL . 4.) (CHAR>= . 4.) (CHAR<= . 4.) (CHAR> . 4.) (CHAR< . 4.) (CHAR/= . 4.)
(CHAR= . 4.) (ALPHANUMERICP . 4.) (DIGIT-CHAR-P . 4.) (BOTH-CASE-P . 4.)
(LOWER-CASE-P . 4.) (UPPER-CASE-P . 4.) (ALPHA-CHAR-P . 4.) (STRING-CHAR-P . 4.)
(GRAPHIC-CHAR-P . 4.) (STANDARD-CHAR-P . 4.) (ADJUSTABLE-ARRAY-P . 4.) (ARRAY-RANK . 4.)
(ARRAY-ELEMENT-TYPE . 4.) (%FUNTABREF . 4.)
)
(NIL) (NIL) (T) (T . T) *FOR-VALUE* *NO-CODE* PROGN C-FORM *STACKZ* 0. ONE ANODE 2.
SECLASS-OR-2 (PUSH) 1. C-DIRECT-FUNCTION-CALL "APPLY-SUBR" COMPILER-ERROR "APPLY-KEY"
C-UNLIST (PUSH) LIST* (PUSH) PUSH-UNBOUND (PUSH) (NIL) (PUSH) (PUSH) LIST (PUSH)
C-CONSTANT-VALUE #.#'EQ ANODES-COMMUTE (PUSH) (PUSH) STORE
#Y(C-DIRECT-FUNCTION-CALL-1 #20Y(01 00 00 00 00 02 D5 A9 31 2E 54 1D 05 A8 2E 01 19 02 19 02)
ANODE ANODE-CONSTANTP
)
ANODE-CONSTANT-VALUE TRY-EVAL
#Y(C-DIRECT-FUNCTION-CALL-2 #9Y(00 00 00 00 01 16 00 48 00) NIL) *ERROR-HANDLER* VALUES QUOTE
C-GLOBAL-FUNCTION-CALL-FORM DIRECT-CALL MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-121 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-UNLIST
REMOVE-OLD-DEFINITIONS
#Y(C-UNLIST
#39Y(03 00 00 00 00 04 8E 03 15 DB DC C6 14 AC AC 77 03 5C 01 14 2C 03 04 19 04 D6 D7 C3 1A
75 A9 23 00 77 D6 DA C1 1A 65
)
0. UNLIST* (NIL) ((PUSH)) MK-ANODE (T . T) UNLIST (T . T)
) )
#Y(#:TOP-LEVEL-FORM-122 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
CCLOSURE-CALL-CODE-PRODUCER REMOVE-OLD-DEFINITIONS
#Y(CCLOSURE-CALL-CODE-PRODUCER
#63Y(07 00 00 00 00 00 00 2A 02 7B 08 00 00 7B 03 00 01 AE 0E 00 21 09 A7 2B 06 01 19 09 C2
1A 0A 98 2A 01 D6 AF AF 8E 08 74 C3 14 AE 6E 41 6F 04 33 67 04 77 03 5C 01 0B 00 00 A7
2B 05 01 19 0A
)
*FUNC* JSR 1. 0. *FUNC-START-LABEL*
#Y(CCLOSURE-CALL-CODE-PRODUCER-1 #11Y(00 00 00 00 00 01 07 00 01 19 01) NIL)
#Y(CCLOSURE-CALL-CODE-PRODUCER-2
#29Y(00 00 00 00 00 01 D6 65 00 01 77 02 D7 6C 03 07 00 02 1B 06 C5 14 5C 02 19 01 C4 1A
78
)
NIL FUNCTION ONE C-FORM (CALLCKEY) (CALLC)
) ) )
#Y(#:TOP-LEVEL-FORM-123 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
C-GLOBAL-FUNCTION-CALL-FORM REMOVE-OLD-DEFINITIONS
#Y(C-GLOBAL-FUNCTION-CALL-FORM #17Y(01 00 00 00 00 02 99 10 00 0E 00 74 2E 01 11 19 02) *FORM*
C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-124 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
C-GLOBAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-GLOBAL-FUNCTION-CALL
#837Y(01 00 00 00 00 02 67 00 D6 2F 02 0E 03 1C 82 EB A8 88 51 13 A8 67 04 DA 37 02 88 B3 0A
A8 67 06 DA 37 02 30 B7 0F 06 A8 24 07 13 67 00 6E 41 DD 8D 01 2B 0A 0E 00 57 74 A7 84
09 27 16 01 A8 23 10 05 A8 24 11 80 52 95 09 0E 00 75 8D 00 26 80 48 DF E7 AA 23 10 1F
AA 23 11 1E 00 14 5F 0E 00 75 1A 27 DF E0 E1 E2 AB 6B 0E 77 02 77 02 77 03 2E 0F 16 01
1A 48 D3 1A 63 D4 1A 60 90 00 E2 A8 6B 0E 77 02 80 02 16 01 7F 00 98 20 6F 16 01 A7 30
A3 16 01 76 77 03 2E 0F 99 25 15 82 5D 95 09 0E 00 75 8D 00 26 82 53 A8 5F 0E 00 75 1A
82 3B A1 25 18 81 F8 A1 25 19 10 03 1A 1A 0E 03 1B 1A 0A 03 1E 1A 21 2D 22 19 0B 03 1C
14 0E 1D 1B 04 98 57 1C 6D B1 24 1F 15 67 1D 24 20 10 AE 61 21 8C 01 2B 61 03 23 14 A1
76 2E 0F 19 0B A7 5F 0E 24 10 24 8F 0D 2B 1A 0D 61 27 80 03 D6 0E 24 58 0F 24 8F 0D 1C
90 0D 7F 0E F5 6C 0F AC 61 25 A9 DD 6E 2A 2F 26 FB A7 80 04 16 01 8E 0D 5A 8E 0D 64 AA
04 10 25 28 81 0A 03 29 1A 81 09 03 2A 1A 81 04 03 2B 1A 80 FF 03 2C 1A 80 FA 03 2D 1A
80 F5 03 2E 1A 80 F0 03 2F 1A 80 EB 03 30 1A 80 E6 03 31 1A 80 E1 03 32 1A 80 DC 03 33
1A 80 D7 03 34 1A 80 D2 03 35 1A 80 CD 03 36 1A 80 C8 03 37 1A 80 C3 03 38 1A 80 BE 03
39 1A 80 B9 03 3A 1A 80 B4 03 3B 1A 80 AF 03 3C 1A 80 AA 03 3D 1A 80 A5 03 3E 1A 80 A0
03 3F 1A 80 9B 03 40 1A 80 96 03 41 1A 80 91 03 42 1A 80 8C 03 43 1A 80 87 03 44 1A 80
82 03 45 1A 80 7D 03 46 1A 80 78 03 47 1A 80 73 03 48 1A 80 6E 03 49 1A 80 69 03 4A 1A
80 64 03 4B 1A 80 5F 03 4C 1A 80 5A 03 4D 1A 80 55 03 4E 1A 80 50 03 4F 1A 80 4B B4 23
21 72 B4 23 01 73 61 50 03 51 1A 10 03 52 1A 39 03 53 1A 35 B4 8B 85 09 61 54 03 55 14
04 0F 1A 1D 03 56 1A 24 03 57 1A 20 B4 23 01 78 61 58 93 0E 77 02 5C 01 1A 12 61 59 61
5A B6 31 8A 14 77 02 5C 02 1A 04 61 5B 2E 5C 14 7C A2 03 11 61 5D B4 77 02 A9 A9 2C 03
5E 19 0D AB AE 8D 01 2F 0F 8E 02 FE 64 AD AC AC 6F 02 33 8C 01 2F FE 59 61 5F B1 AF AC
AE 03 21 55 14 B0 B1 B1 6F 02 33 2C 07 60 B0 2E 61 19 0A B2 2E 66 1A 24 B0 5F B4 B0 B0
B0 B0 B1 60 00 2A 01 8F 0E 6C 61 67 61 21 BB BA BA 6F 02 34 6F 01 31 B4 67 68 6F 01 34
5C 03 14 5C 01 0B 00 00 A7 2B 69 01 F6 2C 0A 6A 19 0C B0 67 62 37 01 6D 64 8F 00 80 83
AF 5F B3 AF AF AF AF B0 B0 6A 09 63 A7 23 64 FF B0 A7 23 65 FF AB B2 2E 61 19 0C B1 B0
5F AA 5F 2C 05 71 19 0B 90 00 E2 A8 6B 0E 77 02 80 02 16 01 7F 00 98 20 6F 16 01 A7 30
A3 16 01 76 0E 16 58 0F 16 0E 00 75 A7 6E 41 AA 84 17 3B AA 30 01 41 06 8F 05 05 B0 9E
21 FD 9E 0E 03 1C 0B B0 67 6B DA 37 02 30 BA 57 1B 09 B0 6B 6C 61 6D 37 01 31 76 14 98
1F 0D 61 6E 61 6F 9A 76 77 02 AF 86 70 FF 98 B1 2E 61 19 0B AA 2E 61 19 04
)
*FORM* 1. TEST-LIST *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL *UNKNOWN-FUNCTIONS*
PROCLAIM 2. C-CONSTANTP EVAL-WHEN (COMPILE) C-PROCLAIM QUOTE C-CONSTANT-VALUE C-FORM PROVIDE
REQUIRE (COMPILE) C-PROVIDE C-REQUIRE
#S(HASH-TABLE EQ (IMPORT . 2.) (UNUSE-PACKAGE . 2.) (USE-PACKAGE . 2.) (UNEXPORT . 2.)
(EXPORT . 2.) (SHADOWING-IMPORT . 2.) (SHADOW . 2.) (IN-PACKAGE . 2.) (MAKE-PACKAGE . 2.)
)
*PACKAGE-TASKS* DECLARED-NOTINLINE
#S(HASH-TABLE EQ (ERROR . 404.) (LIST* . 404.) (LIST . 404.) (SYMBOL-FUNCTION . 404.)
(EQ . 404.) (%SVSTORE . 404.) (VALUES-LIST . 404.) (CONSP . 404.) (ATOM . 404.)
(CDDDDR . 404.) (CDDDAR . 404.) (CDDADR . 404.) (CDDAAR . 404.) (CDADDR . 404.)
(CDADAR . 404.) (CDAADR . 404.) (CDAAAR . 404.) (CADDDR . 404.) (CADDAR . 404.)
(CADADR . 404.) (CADAAR . 404.) (CAADDR . 404.) (CAADAR . 404.) (CAAADR . 404.)
(CAAAAR . 404.) (FOURTH . 404.) (THIRD . 404.) (SECOND . 404.) (CDDDR . 404.)
(CDDAR . 404.) (CDADR . 404.) (CDAAR . 404.) (CADDR . 404.) (CADAR . 404.) (CAADR . 404.)
(CAAAR . 404.) (CDDR . 404.) (CDAR . 404.) (CADR . 404.) (CAAR . 404.) (VALUES . 404.)
(SVREF . 404.) (CONS . 404.) (NULL . 404.) (NOT . 404.) (REST . 404.) (FIRST . 404.)
(CDR . 404.) (CAR . 404.)
)
#S(HASH-TABLE EQ (SYMBOL-FUNCTION . 5.) (SVREF . 5.) (VALUES-LIST . 5.) (CDDDDR . 5.)
(CDDDAR . 5.) (CDDADR . 5.) (CDDAAR . 5.) (CDADDR . 5.) (CDADAR . 5.) (CDAADR . 5.)
(CDAAAR . 5.) (CADDDR . 5.) (CADDAR . 5.) (CADADR . 5.) (CADAAR . 5.) (CAADDR . 5.)
(CAADAR . 5.) (CAAADR . 5.) (CAAAAR . 5.) (FOURTH . 5.) (THIRD . 5.) (SECOND . 5.)
(CDDDR . 5.) (CDDAR . 5.) (CDADR . 5.) (CDAAR . 5.) (CADDR . 5.) (CADAR . 5.) (CAADR . 5.)
(CAAAR . 5.) (CDDR . 5.) (CDAR . 5.) (CADR . 5.) (CAAR . 5.) (REST . 5.) (FIRST . 5.)
(CDR . 5.) (CAR . 5.) (LIST* . 1.) (LIST . 1.) (EQ . 1.) (CONSP . 1.) (ATOM . 1.)
(VALUES . 1.) (CONS . 1.) (NULL . 1.) (NOT . 1.)
)
(NIL) (T) (T . T) *FOR-VALUE* PROGN VALUES ONE 0. C-NIL PROG1 *STACKZ* ANODE SECLASS-OR-2
(PUSH)
#S(HASH-TABLE EQ (ERROR . 254.) (LIST* . 240.) (LIST . 219.) (SYMBOL-FUNCTION . 215.)
(VALUES-LIST . 211.) (VALUES . 197.) (EQ . 182.) (%SVSTORE . 177.) (SVREF . 172.)
(CONS . 167.) (NULL . 162.) (NOT . 162.) (CONSP . 157.) (ATOM . 152.) (CDDDDR . 147.)
(CDDDAR . 142.) (CDDADR . 137.) (CDDAAR . 132.) (CDADDR . 127.) (CDADAR . 122.)
(CDAADR . 117.) (CDAAAR . 112.) (FOURTH . 107.) (CADDDR . 107.) (CADDAR . 102.)
(CADADR . 97.) (CADAAR . 92.) (CAADDR . 87.) (CAADAR . 82.) (CAAADR . 77.) (CAAAAR . 72.)
(CDDDR . 67.) (CDDAR . 62.) (CDADR . 57.) (CDAAR . 52.) (THIRD . 47.) (CADDR . 47.)
(CADAR . 42.) (CAADR . 37.) (CAAAR . 32.) (CDDR . 27.) (CDAR . 22.) (SECOND . 17.)
(CADR . 17.) (CAAR . 12.) (REST . 7.) (CDR . 7.) (FIRST . 2.) (CAR . 2.)
)
((CAR)) ((CDR)) ((CAR) (CAR)) ((CDR) (CAR)) ((CAR) (CDR)) ((CDR) (CDR)) ((CAR) (CAR) (CAR))
((CDR) (CAR) (CAR)) ((CAR) (CDR) (CAR)) ((CDR) (CDR) (CAR)) ((CAR) (CAR) (CDR))
((CDR) (CAR) (CDR)) ((CAR) (CDR) (CDR)) ((CDR) (CDR) (CDR)) ((CAR) (CAR) (CAR) (CAR))
((CDR) (CAR) (CAR) (CAR)) ((CAR) (CDR) (CAR) (CAR)) ((CDR) (CDR) (CAR) (CAR))
((CAR) (CAR) (CDR) (CAR)) ((CDR) (CAR) (CDR) (CAR)) ((CAR) (CDR) (CDR) (CAR))
((CDR) (CDR) (CDR) (CAR)) ((CAR) (CAR) (CAR) (CDR)) ((CDR) (CAR) (CAR) (CDR))
((CAR) (CDR) (CAR) (CDR)) ((CDR) (CDR) (CAR) (CDR)) ((CAR) (CAR) (CDR) (CDR))
((CDR) (CAR) (CDR) (CDR)) ((CAR) (CDR) (CDR) (CDR)) ((CDR) (CDR) (CDR) (CDR)) ((ATOM))
((CONSP)) ((NOT)) ((CONS)) ((SVREF)) ((SVSET)) ((EQ)) ((VALUES0)) ((VALUES1)) (PUSH)
STACK-TO-MV ((LIST-TO-MV)) ((SYMBOL-FUNCTION)) (PUSH) LIST ((NIL)) ((VALUES1)) LIST* (PUSH)
ERROR C-GLOBAL-FUNCTION-CALL COMPILER-ERROR PRIMOP MK-ANODE
"~S called with ~S arguments, but it requires ~
~:[~:[from ~S to ~S~;~S~]~;at least ~*~S~] arguments."
C-WARN C-NORMAL-FUNCTION-CALL FUNCTION-CODES TEST-ARGUMENT-SYNTAX NO-KEYS STATIC-KEYS
CALLS-CODE CALLSR FUNTABR-INDEX
#Y(C-GLOBAL-FUNCTION-CALL-1 #11Y(00 00 00 00 00 01 07 00 01 19 01) NIL)
C-DIRECT-FUNCTION-CALL *INLINE-DEFINITIONS* GET-FUNNAME-SYMBOL INLINE-EXPANSION FUNCTION
LAMBDA INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE
) )
#Y(#:TOP-LEVEL-FORM-125 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROCLAIM
REMOVE-OLD-DEFINITIONS
#Y(C-PROCLAIM
#156Y(01 00 00 00 00 02 99 20 03 00 19 02 99 56 25 00 78 91 01 5F A8 88 92 80 80 83 01 00 14
8B 03 0A A7 67 01 D7 37 02 30 B7 0F 01 7F 01 1A 66 91 01 5F A8 88 92 80 63 83 01 00 14
85 03 15 A7 67 04 DA 37 02 30 B7 0F 04 A7 67 06 37 07 C5 F8 31 4B 0F 06 7F 01 1A 5B 91
01 5F A8 88 92 3C 83 01 00 14 85 03 15 A7 67 06 DA 37 02 30 B7 0F 06 A7 67 04 37 07 C5
F8 31 4B 0F 04 7F 01 1A 5C 91 01 5F 1A 13 83 01 00 14 8B 03 0A A7 67 07 D7 37 02 30 B7
0F 07 7F 01 A8 89 92 69 00 19 04
)
#S(HASH-TABLE EQ (DECLARATION . 109.) (NOTINLINE . 70.) (INLINE . 30.) (SPECIAL . 1.))
*KNOWN-SPECIAL-VARS* #.#'EQ FUNCTION-NAME-P *INLINE-FUNCTIONS* #.#'EQUAL
*NOTINLINE-FUNCTIONS* *USER-DECLARATION-TYPES*
) )
#Y(#:TOP-LEVEL-FORM-126 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROCLAIM-CONSTANT
REMOVE-OLD-DEFINITIONS
#Y(C-PROCLAIM-CONSTANT
#39Y(02 00 00 00 00 03 0E 00 1C 0E A9 67 01 D7 37 02 30 B7 0F 01 A8 84 03 03 00 19 03 A9 A9
2E 04 76 0E 05 58 0F 05 19 03
)
*COMPILING-FROM-FILE* *KNOWN-SPECIAL-VARS* #.#'EQ C-CONSTANTP C-CONSTANT-VALUE
*CONSTANT-SPECIAL-VARS*
) )
#Y(#:TOP-LEVEL-FORM-127 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-DEFUN
REMOVE-OLD-DEFINITIONS
#Y(C-DEFUN
#51Y(01 00 01 00 00 08 3A 01 12 79 01 0E 00 1C 21 1A 0E A9 9A 76 0E 04 58 0F 04 19 03 0E 00
1C 11 0E 01 1C 0D A9 67 02 D8 37 02 30 B7 0F 02 8E 01 61 00 19 03
)
*COMPILING* *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL *INLINE-DEFINITIONS*
) )
#Y(#:TOP-LEVEL-FORM-128 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROVIDE
REMOVE-OLD-DEFINITIONS
#Y(C-PROVIDE #20Y(01 00 00 00 00 02 A8 6D 4C 67 00 D6 37 02 30 B7 0F 00 19 02)
*COMPILED-MODULES* #.#'STRING=
) )
#Y(#:TOP-LEVEL-FORM-129 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-REQUIRE
REMOVE-OLD-DEFINITIONS
#Y(C-REQUIRE
#47Y(01 00 01 00 00 08 3B 01 14 3C 02 AA 6D 4C 67 00 D6 37 02 88 B3 11 8E 00 04 AA 7C E4 02
9A 1F 0A D7 AA 32 00 17 19 04 00 19 04 A9 C2 33 19 04
)
*COMPILED-MODULES* #.#'STRING-EQUAL
#Y(C-REQUIRE-LOAD-LIB
#45Y(01 00 00 00 00 02 A8 D5 6C 01 90 00 99 1F 09 A7 6D E9 D7 37 04 88 36 09 8E 00 01 9B
14 2E 07 19 04 A7 D8 5F D9 5F DA 5F 2C 07 06 19 04
)
(#".lsp" #".lib") SEARCH-FILE #.(PATHNAME-TYPE '#".lib") :VERBOSE :PRINT :ECHO LOAD
COMPILE-FILE
) ) )
#Y(#:TOP-LEVEL-FORM-130 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANALYZE-LETLIST
REMOVE-OLD-DEFINITIONS
#Y(ANALYZE-LETLIST
#83Y(01 00 00 00 00 02 A8 01 02 8F 02 3D 90 02 8A 03 23 9A 56 1F 26 9A 56 74 8B 03 20 9A 56
57 1F 1B 9A 56 57 57 1B 15 9A 56 74 80 01 9A 56 57 56 14 80 00 1A 10 90 02 80 01 00 1A
74 C0 4D 06 D6 90 06 2F 00 4E 7F 02 8E 02 43 A8 6E 43 A8 6E 43 3F 02 19 05
)
C-ERROR "Illegal syntax in LET/LET*: ~S"
) )
#Y(#:TOP-LEVEL-FORM-131 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANALYZE-LAMBDALIST
REMOVE-OLD-DEFINITIONS
#Y(ANALYZE-LAMBDALIST
#700Y(01 00 00 00 00 02 A8 01 04 D5 01 08 A5 1F 28 90 0D A7 8A 03 09 A7 2E 05 16 01 7F 0D 1A
6E 98 25 01 0E 98 25 02 00 C3 4D 6F D9 AB 2F 03 4E 1A 68 A7 80 0D 1A 63 16 01 A5 1F 80
AE 90 0D 24 06 80 A8 1A 16 98 25 07 04 98 25 08 03 98 1A 27 C3 4D 80 6E D9 AB 2F 03 4E
16 01 7F 0D A5 1F 80 8A 90 0D A7 8A 03 5E 98 1F 80 4F 90 00 8B 03 80 49 98 57 1B 08 98
56 14 80 0C 00 1A 10 98 57 1F 39 98 57 57 1B 0D 90 00 80 0C 98 57 56 14 80 0B C0 1A 1F
98 57 57 1F 22 98 57 57 74 8B 03 1B 98 57 57 57 1B 15 90 00 80 0C 98 57 74 80 0B 98 57
57 56 14 80 0A 16 01 1A FF A1 A7 2E 05 16 01 1A FF 99 16 01 1A FF 94 C3 4D 3A DF BA 2F
03 4E 1A 33 98 25 0B 10 C3 4D 09 DF BB 2F 03 4E 16 01 1A 23 16 01 1A 1F 98 FF 1A 17 16
01 A5 1F 16 90 0D 24 09 11 7F 0D 1F 50 90 0D A7 8A 03 54 A7 2E 05 7F 0E 16 01 A5 1F 80
7F 90 0D 98 25 0C 06 C3 4D 0C C4 1A 04 C3 4D 06 CF 14 AB 2F 03 4E 16 01 7F 0D 1A 61 98
25 10 3F C3 4D 80 BF D9 AB 2F 03 4E 1A 80 B7 98 56 74 80 07 98 56 57 1A 15 98 57 57 56
1A 33 98 56 20 6C 90 00 6E 7E 67 12 6D D3 80 07 98 74 80 06 98 57 1F 19 98 57 74 80 05
98 57 57 20 5A C0 1A 10 A7 6E 7E 67 12 6D D3 80 07 A7 80 06 5F 80 05 C0 14 80 04 1A 80
6E A7 23 0D 05 A7 24 0E FF 89 16 01 A5 1F 80 81 90 0D 24 0D 80 7B 7F 0D 7A 07 A5 1F 80
63 90 0D A7 8A 03 FF 83 98 1F 80 43 90 00 8A 03 1C 98 56 1F 3A 98 56 74 8B 7F 34 98 56
57 1F 2F 98 56 57 74 8B 03 28 98 56 57 57 1B 22 98 57 1C FF 79 98 57 1F 19 98 57 57 1C
FF 6F 98 57 57 1F 0E 98 57 57 74 8B 03 07 98 57 57 57 1C FF 5C A7 2E 05 16 01 7F 0D 1A
FF A4 A7 23 11 05 A7 24 0E FF 2D 16 01 A5 1F 0D 90 0D 24 11 08 7A 02 1A 02 16 01 7F 0D
A5 1F 80 75 90 0D 98 25 13 06 C3 4D 6F C4 1A 04 C3 4D 69 CF 14 AB 2F 03 4E 16 01 1A 61
98 25 14 00 98 1A 25 C3 4D 80 45 D9 AB 2F 03 4E 16 01 7F 0D A5 1F 80 4D 90 0D A7 8A 03
62 98 1F 28 90 00 8B 03 23 98 57 1B 08 98 56 14 80 02 00 1A 10 98 57 1F 13 98 57 57 1B
0E 90 00 80 02 98 57 56 14 80 01 16 01 1A 49 A7 2E 05 16 01 1A 42 16 01 1A FF BD A7 24
0E FF 93 16 01 A5 1F 06 90 0D 23 0E FF AD 8F 0D 08 C3 4D 05 EA BA 2F 03 4E B3 6E 43 B3
6E 43 B3 6E 43 B3 6E 43 B3 B3 B3 6E 43 B3 6E 43 B3 6E 43 B3 6E 43 B3 B3 6E 43 B3 6E 43
3F 0D 19 10
)
0.
#S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.) (&AUX . 1.)
(&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.) (&OPTIONAL . 1.)
)
#S(HASH-TABLE EQ (&AUX . 16.) (&KEY . 16.) (&REST . 16.) (&OPTIONAL . 16.)) C-ERROR
"Lambda list marker ~S not allowed here." LAMBDALIST-ERROR &OPTIONAL
#S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.) (&AUX . 1.)
(&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.) (&OPTIONAL . 1.)
)
#S(HASH-TABLE EQ (&AUX . 157.) (&KEY . 157.) (&REST . 157.)) &REST
"Missing &REST parameter in lambda list ~S"
#S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.) (&AUX . 1.)
(&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.) (&OPTIONAL . 1.)
)
#S(HASH-TABLE EQ (&ENVIRONMENT . 111.) (&WHOLE . 111.) (&BODY . 111.) (&AUX . 111.)
(&ALLOW-OTHER-KEYS . 111.) (&KEY . 111.) (&REST . 111.) (&OPTIONAL . 111.)
)
&KEY &AUX "Lambda list element ~S is superfluous."
#S(HASH-TABLE EQ (&ENVIRONMENT . 203.) (&WHOLE . 203.) (&BODY . 203.) (&AUX . 203.)
(&ALLOW-OTHER-KEYS . 203.) (&KEY . 203.) (&REST . 203.) (&OPTIONAL . 203.)
)
&ALLOW-OTHER-KEYS *KEYWORD-PACKAGE*
#S(HASH-TABLE EQ (&ENVIRONMENT . 105.) (&WHOLE . 105.) (&BODY . 105.) (&AUX . 105.)
(&ALLOW-OTHER-KEYS . 105.) (&KEY . 105.) (&REST . 105.) (&OPTIONAL . 105.)
)
#S(HASH-TABLE EQ (&ENVIRONMENT . 4.) (&WHOLE . 4.) (&BODY . 4.) (&AUX . 4.)
(&ALLOW-OTHER-KEYS . 4.) (&KEY . 4.) (&REST . 4.) (&OPTIONAL . 4.)
)
"Lambda lists with dots are only allowed in macros, not here: ~S"
) )
#Y(#:TOP-LEVEL-FORM-132 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) LAMBDALIST-ERROR
REMOVE-OLD-DEFINITIONS
#Y(LAMBDALIST-ERROR #18Y(01 00 00 00 00 02 C0 4D 07 D6 AC 2F 00 4E 19 02 19 02) C-ERROR
"Illegal lambda list element ~S"
) )
#Y(#:TOP-LEVEL-FORM-133 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
INLINE-CALLABLE-FUNCTION-P REMOVE-OLD-DEFINITIONS
#Y(INLINE-CALLABLE-FUNCTION-P
#173Y(02 00 01 00 00 09 3C 01 AA 31 01 1E 80 9D 90 03 C0 55 1E 80 96 91 03 31 01 1E 80 8F 9B
57 57 54 1E 80 88 9B 57 74 A7 31 01 1E 80 7D 90 00 C1 55 1E 80 76 91 00 31 01 1E 80 6F
98 57 74 A7 31 08 1E 80 64 D7 A8 37 06 31 59 54 1E 80 5A D8 A8 37 06 31 59 54 1E 80 50
D9 A8 37 06 6E 59 DA A9 37 06 6E 59 DB AA 37 06 8A 59 03 A9 31 41 14 8E 01 0D 8E 06 1D
8E 02 25 AE A8 32 01 2B 19 09 9E 1D 24 AE 8E 03 01 9A 14 32 01 30 19 09 A8 31 8A 1A 05
AE 8E 03 77 99 14 32 01 2F 19 09 14 AF 93 02 32 02 2F 19 09 19 09 19 06 19 05 19 04
)
FUNCTION LAMBDA &KEY &ALLOW-OTHER-KEYS &OPTIONAL &REST &AUX
) )
#Y(#:TOP-LEVEL-FORM-134 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *SPECIALS*) *SPECIALS*)
#Y(#:TOP-LEVEL-FORM-135 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *IGNORES*) *IGNORES*)
#Y(#:TOP-LEVEL-FORM-136 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *IGNORABLES*)
*IGNORABLES*
)
#Y(#:TOP-LEVEL-FORM-137 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PUSH-SPECIALS
REMOVE-OLD-DEFINITIONS
#Y(PUSH-SPECIALS #18Y(00 00 00 00 00 01 95 00 95 01 67 02 32 00 17 97 00 01) PUSH-*VENV*
MAKE-SPECIAL-VAR *SPECIALS*
) )
#Y(#:TOP-LEVEL-FORM-138 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) IGNORE-CHECK
REMOVE-OLD-DEFINITIONS
#Y(IGNORE-CHECK
#73Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A7 67 02 D8 37 02 88 B3 26 A7 67 09 D8 37 02 88 B3 29
D5 AA D9 8A 2A 23 D5 AA DC 8A 2A 1D A7 8B 7C 19 CA 14 A8 2F 06 19 03 C5 1A 77 C8 1A 74
D5 AA D9 8A 2A 74 D5 AA DC 8A 2A 71 00 19 03
)
VAR 1. *IGNORES* #.#'EQ 2.
"Binding variable ~S can cause side effects despite of IGNORE declaration~%since it is declared SPECIAL."
C-WARN 5. "variable ~S is used despite of IGNORE declaration." *IGNORABLES*
"variable ~S is not used.~%Misspelled or missing IGNORE declaration?"
) )
#Y(#:TOP-LEVEL-FORM-139 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAKE-CLOSURE
REMOVE-OLD-DEFINITIONS
#Y(C-MAKE-CLOSURE
#29Y(03 00 00 00 00 04 8E 03 03 00 19 04 D5 91 03 91 03 77 03 D6 AC 6E 41 77 02 5C 02 19 04)
VENV MAKE-VECTOR1&PUSH
) )
#Y(#:TOP-LEVEL-FORM-140 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-FIXED-VAR-1
REMOVE-OLD-DEFINITIONS
#Y(BIND-FIXED-VAR-1
#63Y(01 00 00 00 00 02 A8 88 5F 24 A8 84 00 20 A8 67 01 D7 37 02 88 B3 17 DC A9 DD 5F DE 5F
DF 5F E0 5F E1 5F E2 67 0E E4 67 10 2C 10 11 19 02 A8 85 03 08 C4 4D 05 DA AC 2F 04 4E
A8 2E 06 19 02
)
PROCLAIMED-SPECIAL-P *SPECIALS* #.#'EQ C-CONSTANTP C-ERROR "Constant ~S cannot be bound."
MAKE-SPECIAL-VAR :NAME :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ *STACKZ*
:VENVC *VENVC* MAKE-VAR
) )
#Y(#:TOP-LEVEL-FORM-141 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-FIXED-VAR-2
REMOVE-OLD-DEFINITIONS
#Y(BIND-FIXED-VAR-2
#29Y(01 00 00 00 00 02 D5 A9 D6 8B 2A 06 D5 A9 D7 8B 2A 03 00 19 02 D8 0E 04 58 0F 04 19 02)
VAR 2. 3. (BIND 1.) *STACKZ*
) )
#Y(#:TOP-LEVEL-FORM-142 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-BIND-FIXED-VAR
REMOVE-OLD-DEFINITIONS
#Y(C-BIND-FIXED-VAR
#65Y(03 00 00 00 00 04 D5 AB D6 8A 2A 09 D5 AB DD 8A 2A 1C 00 19 04 D5 AB D7 8A 2A 77 D8 AA
67 04 AB 77 04 DA D5 AD DB 6E 2A 6B 07 5C 02 1A 0E D8 AA 67 04 AB 77 04 DE AC 67 04 AC
5C 04 14 5C 02 19 04
)
VAR 2. 3. GET *VENVC* BIND 1. NEW-CONST 9. SET
) )
#Y(#:TOP-LEVEL-FORM-143 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
PROCESS-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(PROCESS-FIXED-VAR-LIST
#75Y(01 00 01 00 00 08 3C 01 A9 A9 01 02 8F 03 32 D5 0E 01 58 0F 01 D7 37 01 6E 82 D8 5F D9
5F DA 5F DB A3 56 54 14 DC 5F DD 67 01 DE 67 0A 6A 10 0B 80 00 90 03 6B 0C 80 01 91 03
7F 03 66 03 8E 03 4E A8 6E 43 A8 6E 43 3F 02 19 07
)
1. *STACKZ* :NAME :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC *VENVC*
MAKE-VAR BIND-FIXED-VAR-1
) )
#Y(#:TOP-LEVEL-FORM-144 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UNMODIFY-UNUSED-VAR
REMOVE-OLD-DEFINITIONS
#Y(UNMODIFY-UNUSED-VAR
#53Y(01 00 00 00 00 02 D5 A9 D6 6E 2A 5F 1A 20 83 01 00 74 D7 A8 D8 31 2A 57 1B 06 D7 A8 D9
5F 31 2B 16 01 91 00 D7 A8 D9 5F 31 2B 16 01 7F 01 A8 89 92 5C 00 19 04
)
VAR 7. ANODE 2. 3.
) )
#Y(#:TOP-LEVEL-FORM-145 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
CHECKING-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(CHECKING-FIXED-VAR-LIST
#80Y(01 00 01 00 00 08 3C 01 5F AA 5F 1A 3A D6 A8 D9 5F 31 2B 9C 56 1C 0C D6 A8 DA 6E 2A DB
30 A8 AB DC 30 A8 A7 2E 08 1A 1B 83 01 00 14 2E 00 D6 A8 D7 8A 2A 0F D6 A8 D8 8B 2A 53
D6 A8 D9 8B 2A 03 A7 80 02 7F 04 7F 01 A8 89 92 5D A9 31 43 19 06
)
IGNORE-CHECK VAR 2. 6. 9. 10. 0. GONE UNMODIFY-UNUSED-VAR
) )
#Y(#:TOP-LEVEL-FORM-146 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BOUND-TO-VAR-P
REMOVE-OLD-DEFINITIONS
#Y(BOUND-TO-VAR-P
#50Y(02 00 00 00 00 03 D5 AA D6 8A 2A 1E D7 A9 D8 6E 2A 6E 41 24 04 14 D7 A9 D8 31 2A 56 F7
D7 A9 8A 2E 6A 99 1F 05 90 01 23 05 03 00 19 03 99 57 56 19 03
)
VAR 2. ANODE 3. 1. GET
) )
#Y(#:TOP-LEVEL-FORM-147 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-MOVABLE-VAR
REMOVE-OLD-DEFINITIONS
#Y(BIND-MOVABLE-VAR
#130Y(02 00 00 00 00 03 A9 88 5F 80 61 A9 84 00 80 5C A9 67 01 D7 37 02 88 B3 80 52 DF 0E 07
58 0F 07 E0 AA E1 5F E2 AD 6B 0E E4 AF 84 0E 80 4E 00 14 E6 5F E7 5F E8 5F E9 67 07 EA
67 16 6A 12 17 A7 AA 6C 18 8F 00 13 A8 AB 77 02 A7 EE AA EF 31 2A 76 EE AA EF AA 31 2B
16 02 16 01 15 19 03 C4 4D 08 DA AD 2F 04 4E C6 1A 08 C6 1A 05 A9 84 03 6E C8 14 0E 07
58 0F 07 A9 2E 09 19 03 AF 2E 10 1A FF AD
)
PROCLAIMED-SPECIAL-P *SPECIALS* #.#'EQ C-CONSTANTP C-ERROR "Constant ~S cannot be bound." 0.
*STACKZ* (BIND 1.) MAKE-SPECIAL-VAR 1. :NAME :SPECIALP :CONSTANTP ANODE-CONSTANTP :CONSTANT
ANODE-CONSTANT :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC *VENVC* MAKE-VAR BOUND-TO-VAR-P
VAR 8.
) )
#Y(#:TOP-LEVEL-FORM-148 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-BIND-MOVABLE-VAR
REMOVE-OLD-DEFINITIONS
#Y(C-BIND-MOVABLE-VAR
#67Y(01 00 00 00 00 02 D5 A9 D6 8A 2A 12 D5 A9 DB 8A 2A 1E D5 A9 DE 31 2A 74 8B 84 25 00 19
02 D5 A9 D7 8A 2A 77 D8 D5 AA D9 6E 2A 6B 05 5C 02 1A 0B DC A9 67 08 D5 AC DE 6E 2A 5C
04 14 5C 01 19 02 CA 19 02
)
VAR 2. 3. BIND 1. NEW-CONST 9. SET *VENVC* 10. ((PUSH))
) )
#Y(#:TOP-LEVEL-FORM-149 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
C-BIND-MOVABLE-VAR-ANODE REMOVE-OLD-DEFINITIONS
#Y(C-BIND-MOVABLE-VAR-ANODE
#57Y(02 00 00 00 00 03 D5 D6 AB 6B 02 6A 03 03 AA AA 6C 04 8F 00 1C DA A8 DB 6E 2A 5F 1A 0E
83 01 00 74 9F 22 05 91 00 AB 30 AA 7F 01 A8 89 92 6E 16 02 16 01 A9 A8 5C 02 19 04
)
BIND-MOVABLE (NIL) C-BIND-MOVABLE-VAR MK-ANODE BOUND-TO-VAR-P VAR 8.
) )
#Y(#:TOP-LEVEL-FORM-150 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
PROCESS-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(PROCESS-MOVABLE-VAR-LIST
#72Y(03 00 00 00 00 04 AA AA 01 03 8F 04 26 90 03 A7 D5 6C 01 90 06 A8 6C 02 A8 80 04 A7 80
05 67 03 80 03 8F 09 03 A7 2E 04 16 03 91 04 7F 04 66 04 8E 04 5A 8E 06 05 95 04 9B 36
00 A9 6E 43 A9 6E 43 A9 6E 43 3F 03 19 09
)
ONE C-FORM BIND-MOVABLE-VAR *STACKZ* PUSH-*VENV*
) )
#Y(#:TOP-LEVEL-FORM-151 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
CHECKING-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(CHECKING-MOVABLE-VAR-LIST
#152Y(02 00 00 00 00 03 A9 A9 5F 8F 02 37 90 02 8F 00 27 14 2E 00 D6 A8 D7 8A 2A 1E D6 A8 D8
8A 2A 28 D6 A8 DD 8B 2A 80 47 D6 A8 D9 8B 2A 0B D6 A8 DA 6E 2A DB 30 A8 A7 80 01 16 01
91 02 7F 02 66 02 8E 02 49 A7 31 43 19 06 D6 A8 D9 5F 31 2B D6 A8 DA 6E 2A DB 30 A8 90
02 DC A8 D7 31 2A 16 01 57 1B 56 90 02 DC A8 D8 5F 31 2B 16 01 1A 4A D6 A8 D9 5F 31 2B
D6 A8 DA 6E 2A DB 30 A8 90 02 DC A8 D7 31 2A 16 01 57 1B 0A 90 02 DC A8 D8 5F 31 2B 16
01 A7 2E 09 1A FF A0
)
IGNORE-CHECK VAR 2. 3. 9. 10. 0. ANODE 6. UNMODIFY-UNUSED-VAR
) )
#Y(#:TOP-LEVEL-FORM-152 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-VAR-LIST
REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-VAR-LIST
#192Y(01 00 00 00 00 02 0E 00 1B 07 A8 6E 42 5F 1A 80 A7 00 19 02 83 01 00 1C 80 9C D6 A8 D7
8A 2A 80 95 D6 A8 D8 8A 2A 80 8E D6 A8 D9 6E 2A 5F 1A 80 7E 83 01 00 74 D6 A8 D7 8A 2A
80 6F D6 A8 D8 8A 2A 80 68 D6 A8 DA 8A 2A 80 61 D6 A8 DB 31 2A 74 23 07 80 57 99 57 57
1C 80 51 D6 A8 DB 6E 2A DC 30 A8 99 57 74 DD A8 DE 5F 31 2B 16 01 99 57 75 DD A8 DE 5F
31 2B 16 01 D6 AB DF 6E 2A D6 A9 DF 6E 2A 1A 1A 90 00 DD A8 DE 6E 2A 8F 00 0C 90 00 91
00 B0 30 A8 16 01 A8 80 03 16 02 7F 00 98 20 63 16 01 D6 AC DF AA 31 2B 16 01 16 01 7F
01 A8 89 92 FF 7D 16 02 7F 01 A8 89 92 FF 57 00 19 04
)
*NO-CODE* VAR 2. 9. 8. 7. 10. 0. ANODE 3. 5.
) )
#Y(#:TOP-LEVEL-FORM-153 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-BIND-WITH-SVARS
REMOVE-OLD-DEFINITIONS
#Y(C-BIND-WITH-SVARS
#206Y(06 00 00 00 00 00 AD AD AD AD AD AD 5F 8F 06 80 63 9C 56 1C 0A 90 04 90 03 6C 00 A8 7C
A1 00 90 06 90 06 90 05 90 04 D6 6B 02 D8 AC D9 8A 2A 80 4D D8 AC E0 8A 2A 80 67 D8 AC
E2 8B 2A 80 83 DA AB 67 06 AB AB 77 05 AA E1 AE 67 06 AD 77 04 9B 14 5C 04 16 04 F6 A8
7C A1 00 91 06 91 06 91 06 91 06 91 06 7F 06 66 06 66 06 66 06 66 06 66 06 8E 06 FF 9D
A7 31 43 19 0E 00 5D 03 1A 55 DA AB 67 06 AB AB 77 05 AA A9 D8 AF DC 8A 2A 6B DD D8 B0
DE 6E 2A 6B 0A 77 02 5C 01 5D 03 1A FF B4 DA AB 67 06 AB AB 77 05 AA A9 E1 AF 67 06 AE
5C 04 1A FF 9D DA AB 67 06 AB AB 77 05 AA A9 5C 03 1A FF 91 E3 AA D9 31 2A 57 1B 69 00
1A FF 85
)
C-BIND-MOVABLE-VAR-ANODE ONE MAKE-LABEL VAR 2. JMPIFBOUNDP *VENVC* 3. BIND 1. NEW-CONST 9.
SET 6. ANODE
) )
#Y(#:TOP-LEVEL-FORM-154 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-LAMBDABODY
REMOVE-OLD-DEFINITIONS
#Y(C-LAMBDABODY
#794Y(02 00 03 00 00 12 3C 03 3C 02 3C 01 AB D5 2F 01 D7 AD D8 67 04 DA 67 06 2C 06 07 10 04
0E 04 10 08 67 04 0E 06 58 10 06 5F 2E 09 10 0A CB 10 0C CD 4D 81 B7 8E 15 82 D0 90 16
2E 0E 41 0D 67 04 B4 6E 41 E4 A9 E5 AA 31 2B 16 02 67 04 B3 6E 41 E4 A9 E6 AA 31 2B 16
02 67 04 B0 CB 55 54 14 E4 A9 E7 AA 31 2B 16 02 67 04 E4 A8 E8 B2 31 2B 16 01 67 04 E4
A8 E9 B1 31 2B 16 01 67 04 E4 A8 EA AD 31 2B 16 01 8F 22 09 67 04 90 23 A8 30 A8 16 01
91 23 60 67 16 67 17 6F 02 00 30 60 41 02 67 08 0E 08 10 08 0E 18 10 18 0E 16 10 16 0E
06 10 06 00 10 19 00 10 1A 00 10 1B 01 16 62 2C 2E 1C 41 03 15 0F 1B 15 0F 1A 15 0F 19
2D 1D 5F 0E 06 58 0F 06 F6 62 3A 62 4F 2F 1E 41 02 66 15 66 15 62 39 2E 1E 41 02 66 12
66 12 62 36 23 0B 82 1F 62 36 77 01 2E 1E 41 02 66 0C 66 0C 62 33 2E 1E 41 02 66 09 66
09 D5 0E 08 58 0F 08 E0 0E 08 58 0F 08 F7 BC 2E 1F 09 13 B9 B9 62 3A 62 3A 2C 04 20 41
04 66 11 66 11 66 0E 66 10 62 36 23 0B 05 B3 2E 21 09 0A B0 B0 62 34 62 34 2C 04 20 41
04 66 08 66 08 66 05 66 07 62 2F 62 2F 2F 22 41 02 66 03 66 03 61 23 04 2E 76 61 24 6C
25 BD 62 50 6C 26 BB 6B 26 B9 B9 6C 27 B7 6B 26 B5 6B 26 B3 B3 6C 27 B1 B1 6C 27 6F 07
20 67 0A A8 AB AD 6A 03 28 95 29 62 1A 62 1A 62 1A 6A 04 2A BE BE BD BF BE BE 6A 06 2B
95 29 BA BA BA 6A 04 2A B7 B7 B6 B8 B7 B7 6A 06 2B 95 2C B3 B3 6A 03 2A AF 61 2D 67 08
62 37 03 2E 78 03 03 2F 78 02 32 07 20 76 61 30 61 31 A9 6A 03 32 8F 02 0A AC D5 30 A8
AB AA 9F 76 30 A8 62 19 BE BC BA B8 B6 B4 6F 07 20 2E 33 15 16 19 12 07 16 10 4E 14 67
04 E4 A8 61 34 AB 31 2B 16 01 8F 11 19 67 04 E4 A8 E5 6E 2A 61 35 BB 37 06 6E 5C 6F 01
34 E4 A9 E5 AA 31 2B 16 02 61 36 A8 D5 6E 2A 24 37 80 50 67 04 E4 A8 E5 E0 31 2B 16 01
67 04 E4 A8 E6 E0 31 2B 16 01 67 04 E4 A8 E7 60 31 2B 16 01 67 04 E4 A8 E8 5F 31 2B 16
01 67 04 E4 A8 E9 5F 31 2B 16 01 67 04 E4 A8 EA 5F 31 2B 16 01 67 04 E4 A8 61 34 7D 2A
00 61 36 A8 61 38 61 39 31 2B 16 01 67 04 E4 A8 61 3A BD 31 2B 16 01 67 04 67 04 67 04
67 04 67 04 E4 A8 61 38 31 2A 16 01 1B 80 89 CB 14 E4 A9 61 3B AA 31 2B 16 01 F6 67 04
E4 A8 61 3C 7D 2A 00 6E 41 6F 02 33 E4 A9 61 3D AA 31 2B 16 01 F6 67 04 E4 A8 61 3E 7D
2A 00 6E 41 6F 02 33 E4 A9 61 3F AA 31 2B 16 01 F6 67 04 E4 A8 E9 7D 2A 00 6E 41 6F 02
33 E4 A9 61 40 AA 31 2B 16 02 8F 12 1E 67 04 E4 A8 61 3C 31 2A 16 01 1B 0C 67 04 E4 A8
61 3E 31 2A 16 01 1C 06 61 41 61 42 2F 43 0E 04 16 01 12 05 19 06 56 57 57 43 1A FD 2D
01 02 3F 02 1A FD E0 C0 1A FF 74
)
1. TEST-LIST :NAME :ENCLOSING *FUNC* :VENVC *VENVC* MAKE-FNODE *STACKZ* MAKE-LABEL
*FUNC-START-LABEL* 0. *ANONYMOUS-COUNT* C-ERROR ANALYZE-LAMBDALIST FNODE 10. 11. 12. 13. 14.
15. *VENV* *FENV* *DENV* *SPECIALS* *IGNORES* *IGNORABLES* PROCESS-DECLARATIONS PUSH-SPECIALS
PROCESS-FIXED-VAR-LIST BIND-REQ-VARS BIND-OPT-VARS BIND-REST-VARS BIND-AUX-VARS PROGN ALL
C-FORM CHECKING-FIXED-VAR-LIST CHECKING-MOVABLE-VAR-LIST C-MAKE-CLOSURE C-BIND-FIXED-VAR
MAPCAP C-BIND-WITH-SVARS C-BIND-MOVABLE-VAR-ANODE UNWIND (T) ((RET)) LAMBDABODY (T . T)
MK-ANODE OPTIMIZE-VAR-LIST 2. GONE ANODE ERROR 3. ((NIL) (SKIP 2.) (RET)) 20. 5. 6. 7. 8. 9.
16. C-LAMBDABODY "GF" COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-155 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-REQ-VARS
REMOVE-OLD-DEFINITIONS
#Y(BIND-REQ-VARS
#37Y(01 00 00 00 00 02 5F A9 5F 1A 0F 83 01 00 14 2E 00 67 01 80 02 A7 2E 02 7F 01 A8 89 92
6D 16 02 A7 31 43 19 03
)
PUSH-*VENV* *STACKZ* BIND-FIXED-VAR-2
) )
#Y(#:TOP-LEVEL-FORM-156 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-OPT-VARS
REMOVE-OLD-DEFINITIONS
#Y(BIND-OPT-VARS
#129Y(04 00 00 00 00 05 01 04 AF AF AF AF 8F 03 80 56 90 00 23 00 80 62 D6 90 03 77 01 00 76
D7 90 05 67 03 67 04 77 04 77 01 6A 03 05 90 01 A8 6C 06 A8 80 06 A7 80 07 16 02 90 01
DC 6C 08 80 07 90 03 2E 09 67 04 80 06 90 03 2E 0A 90 00 23 00 04 90 05 2E 09 91 03 91
03 91 03 7F 03 66 03 66 03 66 03 8E 03 FF AA 16 04 AA 6E 43 AA 6E 43 AA 6E 43 AA 6E 43
3F 04 19 09 5F 80 05 5F 80 04 1A FF B7
)
0. OPTIONAL-SVAR BOUNDP *VENVC* *STACKZ* MK-ANODE BIND-MOVABLE-VAR ONE C-FORM PUSH-*VENV*
BIND-FIXED-VAR-2
) )
#Y(#:TOP-LEVEL-FORM-157 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-REST-VARS
REMOVE-OLD-DEFINITIONS
#Y(BIND-REST-VARS #22Y(01 00 00 00 00 02 5F 90 02 2E 00 67 01 80 00 90 02 2E 02 15 19 02)
PUSH-*VENV* *STACKZ* BIND-FIXED-VAR-2
) )
#Y(#:TOP-LEVEL-FORM-158 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-AUX-VARS
REMOVE-OLD-DEFINITIONS
#Y(BIND-AUX-VARS
#56Y(02 00 00 00 00 03 01 02 AB AB 8F 01 1F 90 00 A7 D5 6C 01 90 03 A8 6C 02 A8 80 05 A7 80
06 A7 2E 03 16 03 91 01 7F 01 66 01 8E 01 61 16 02 A8 6E 43 A8 6E 43 3F 02 19 05
)
ONE C-FORM BIND-MOVABLE-VAR PUSH-*VENV*
) )
#Y(#:TOP-LEVEL-FORM-159 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FNODE-FUNCTION
REMOVE-OLD-DEFINITIONS
#Y(C-FNODE-FUNCTION
#222Y(01 00 01 00 00 08 3A 01 02 0E 00 10 00 D6 D7 D8 AF D9 6E 2A 8A 84 11 D8 AF DB 8A 2A 14
00 14 5F D8 B1 E0 6E 2A 1A 80 52 DA AF 77 02 5C 01 1A 80 A6 DC D8 B0 DD 6E 2A 67 00 77
03 C9 76 DF 0E 00 58 0F 00 15 1A 58 E3 A8 5C 02 1A 1D 90 00 A7 67 0C D8 A8 E0 7D 2A 00
E2 37 02 88 B3 69 E4 E5 A9 DD 6E 2A 67 11 67 00 5C 04 14 D2 76 DF 0E 00 58 0F 00 AA 7C
A1 02 16 01 7F 00 98 20 4F 16 01 A7 7C A3 00 5F D8 B2 E8 6E 2A 1A 35 E9 A8 5C 02 1A 1D
90 00 A7 67 0C D8 A8 E8 7D 2A 00 E2 37 02 88 B3 69 E4 EA A9 DD 6E 2A 67 11 67 00 5C 04
14 03 16 76 DF 0E 00 58 0F 00 AA 7C A1 02 16 01 7F 00 98 20 4E 16 01 A7 7C A3 00 EC B2
D8 B4 D9 6E 2A 77 03 77 01 32 04 20 14 2C 03 18 11 19 03
)
*STACKZ* FUNCTION (NIL) FNODE 9. FCONST 3. VENV 4. ((PUSH)) 1. 6. *FUNC* #.#'EQ BCONST GET
BLOCK *VENVC* ((PUSH)) 8. GCONST TAGBODY ((PUSH)) COPY-CLOSURE MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-160 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROGN
REMOVE-OLD-DEFINITIONS
#Y(C-PROGN
#80Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 75 8F 00 31 98 57 1C 31 DA 5F A9 8F 00 1D 90 00
7F 01 A7 8F 02 29 00 14 6C 04 AB DC A9 DD 6E 2A 2F 09 FA A7 80 03 16 02 8E 00 63 DF AA
AA 6E 43 2C 03 0B 19 05 2D 03 19 02 90 00 2E 04 19 02 0E 06 1A 54
)
*FORM* 1. TEST-LIST C-NIL C-FORM (NIL) *FOR-VALUE* ANODE 2. SECLASS-OR-2 PROGN MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-161 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROG1
REMOVE-OLD-DEFINITIONS
#Y(C-PROG1
#83Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1C 3B 67 03 24 04 06 0E 00 57 57 1C 30 0E 00 57
74 D9 6C 06 DC 0E 08 58 10 08 DA 0E 00 57 57 76 5F 2F 06 11 14 DE DF AA D6 6E 2A DF AA
D6 6E 2A 6C 0B AA E1 AB CD 78 03 2C 03 0E 19 03 DA 0E 00 57 76 2E 06 19 01
)
*FORM* 2. TEST-LIST *FOR-VALUE* ONE PROGN C-FORM 1. *STACKZ* PROG1 ANODE SECLASS-OR-2 (PUSH)
((POP)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-162 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROG2
REMOVE-OLD-DEFINITIONS
#Y(C-PROG2
#35Y(00 00 00 00 00 01 67 00 D6 2F 02 D8 0E 00 57 74 D9 0E 00 57 57 74 0E 00 57 57 57 78 02
77 03 2E 05 19 01
)
*FORM* 3. TEST-LIST PROGN PROG1 C-FORM
) )
#Y(#:TOP-LEVEL-FORM-163 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-IF
REMOVE-OLD-DEFINITIONS
#Y(C-IF
#122Y(00 00 00 00 00 01 67 00 D6 D7 2C 03 03 0E 00 57 74 0E 00 57 57 74 0E 00 57 57 57 74 A9
D9 6C 05 A7 84 06 80 43 A9 6B 05 A9 6B 05 5F 6B 09 67 0A 6B 09 E0 E1 AD E2 6E 2A E1 AD
E2 6E 2A 6C 0E E1 AC E2 6E 2A 6C 0E AD E4 AC 77 02 AE E5 AD 77 02 AE B0 AF 77 07 2C 03
11 19 09 A9 6B 05 02 10 08 AC 5F 2F 05 11 15 19 05 A7 84 07 6E 02 10 08 AC 5F 2F 05 11
A8 2E 05 3E 19 05
)
*FORM* 3. 4. TEST-LIST ONE C-FORM ANODE-CONSTANTP ANODE-CONSTANT-VALUE *NO-CODE* MAKE-LABEL
*FOR-VALUE* IF ANODE 2. SECLASS-OR-2 JMPIFNOT JMP MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-164 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-WHEN
REMOVE-OLD-DEFINITIONS
#Y(C-WHEN
#28Y(00 00 00 00 00 01 67 00 D6 2F 02 D8 0E 00 57 74 D9 0E 00 57 57 76 77 03 2E 05 19 01)
*FORM* 2. TEST-LIST IF PROGN C-FORM
) )
#Y(#:TOP-LEVEL-FORM-165 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-UNLESS
REMOVE-OLD-DEFINITIONS
#Y(C-UNLESS
#29Y(00 00 00 00 00 01 67 00 D6 2F 02 D8 0E 00 57 74 5F D9 0E 00 57 57 76 77 04 2E 05 19 01)
*FORM* 2. TEST-LIST IF PROGN C-FORM
) )
#Y(#:TOP-LEVEL-FORM-166 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-AND
REMOVE-OLD-DEFINITIONS
#Y(C-AND
#166Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 1C 80 52 0E 00 57 57 1C 80 53 DD 5F 0E 00 75
67 09 6B 0A 8F 01 32 90 01 7F 02 A7 8F 03 80 46 CB 14 6C 07 AC E1 A9 E2 6E 2A 2F 0E FB
8F 03 3B A7 84 0F 3A A7 80 04 0E 09 1B 80 59 D4 14 AA 5C 02 14 80 04 16 02 8E 01 4E A7
80 02 D8 AB AB 6E 43 2C 03 06 19 05 D8 D9 DA 2C 03 06 19 01 0E 00 57 74 2E 07 19 01 0E
09 1A FF B6 98 1A 53 A7 84 10 52 0E 09 1C 03 E6 80 04 02 10 12 AD 5F 1A 09 83 01 00 14
5F 2F 07 7F 01 A8 89 92 73 16 02 11 79 03 1A FF AF D3 1A FF A4
)
*FORM* 1. TEST-LIST AND (NIL) ((T)) MK-ANODE C-FORM (NIL) *FOR-VALUE* MAKE-LABEL ONE ANODE 2.
SECLASS-OR-2 ANODE-CONSTANTP ANODE-CONSTANT-VALUE (NIL) *NO-CODE* JMPIFNOT1 JMPIFNOT
) )
#Y(#:TOP-LEVEL-FORM-167 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-OR
REMOVE-OLD-DEFINITIONS
#Y(C-OR
#166Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 1C 80 52 0E 00 57 57 1C 80 53 DD 5F 0E 00 75
67 09 6B 0A 8F 01 32 90 01 7F 02 A7 8F 03 80 46 CB 14 6C 07 AC E1 A9 E2 6E 2A 2F 0E FB
8F 03 3B A7 84 0F 3A A7 80 04 0E 09 1B 80 59 D3 14 AA 5C 02 14 80 04 16 02 8E 01 4E A7
80 02 D8 AB AB 6E 43 2C 03 06 19 05 D8 D9 DA 2C 03 06 19 01 0E 00 57 74 2E 07 19 01 0E
09 1A FF B6 98 1A 53 A7 85 10 52 0E 09 1C 03 A7 80 04 02 10 11 AD 5F 1A 09 83 01 00 14
5F 2F 07 7F 01 A8 89 92 73 16 02 11 79 03 1A FF AF D2 1A FF A4
)
*FORM* 1. TEST-LIST OR (NIL) ((NIL)) MK-ANODE C-FORM (NIL) *FOR-VALUE* MAKE-LABEL ONE ANODE
2. SECLASS-OR-2 ANODE-CONSTANTP ANODE-CONSTANT-VALUE *NO-CODE* JMPIF1 JMPIF
) )
#Y(#:TOP-LEVEL-FORM-168 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-QUOTE
REMOVE-OLD-DEFINITIONS
#Y(C-QUOTE
#40Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 D8 D9 0E 05 1B 07 00 14 2C 03 08 19
02 DB AA 6B 07 77 02 5C 01 1A 70
)
*FORM* 2. TEST-LIST QUOTE (NIL) *FOR-VALUE* CONST NEW-CONST MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-169 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-THE
REMOVE-OLD-DEFINITIONS
#Y(C-THE #22Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 57 74 2E 03 19 01) *FORM* 3.
TEST-LIST C-FORM
) )
#Y(#:TOP-LEVEL-FORM-170 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-DECLARE
REMOVE-OLD-DEFINITIONS
#Y(C-DECLARE #18Y(00 00 00 00 00 01 67 00 D6 2F 02 D8 67 00 2F 04 19 01) *FORM* 1. TEST-LIST
"Misplaced declaration: ~S" C-ERROR
) )
#Y(#:TOP-LEVEL-FORM-171 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-LOAD-TIME-VALUE
REMOVE-OLD-DEFINITIONS
#Y(C-LOAD-TIME-VALUE
#46Y(00 00 00 00 00 01 67 00 D6 D7 2C 03 03 0E 00 57 74 D9 DA 0E 06 1B 07 00 14 2C 03 0B 19
02 DC DD AB 6D 5C DE AD 6A 04 0A 77 02 5C 01 1A 6A
)
*FORM* 2. 3. TEST-LIST LOAD-TIME-VALUE (NIL) *FOR-VALUE* CONST :VALUE :FORM MAKE-CONST
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-172 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-CATCH
REMOVE-OLD-DEFINITIONS
#Y(C-CATCH
#66Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 6C 04 DA 0E 06 58 10 06 DC 0E 00 57 57
76 2E 04 11 14 67 08 6B 09 DA DF AB D6 6E 2A DF AB D6 6E 2A 6C 0B AB E1 AB 77 02 AC E2
AD 77 05 2C 03 0E 19 04
)
*FORM* 2. TEST-LIST ONE C-FORM CATCH *STACKZ* PROGN *FOR-VALUE* MAKE-LABEL ANODE SECLASS-OR-2
CATCH-OPEN (CATCH-CLOSE) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-173 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-THROW
REMOVE-OLD-DEFINITIONS
#Y(C-THROW
#63Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 D8 6C 04 DA 0E 06 58 10 06 0E 00 57
57 74 DC 2F 04 11 14 DD DE AA DF 6E 2A DE AA DF 6E 2A 2F 0B 74 02 76 AA E1 AB CD 78 03
2C 03 0E 19 03
)
*FORM* 3. TEST-LIST ONE C-FORM 1. *STACKZ* ALL THROW ANODE 2. SECLASS-OR-2 (PUSH) ((THROW))
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-174 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-UNWIND-PROTECT
REMOVE-OLD-DEFINITIONS
#Y(C-UNWIND-PROTECT
#98Y(00 00 00 00 00 01 67 00 D6 2F 02 D8 0E 04 58 10 04 0E 00 57 74 2E 05 11 14 DB 0E 04 58
10 04 DC 0E 00 57 57 76 5F 2F 05 11 14 5F 6B 08 D8 DE AB D6 6E 2A DE AB D6 6E 2A 6C 0A
E0 AA 77 02 AC 0E 0C 25 0D 09 CE 1A 07 CF 1A 04 00 1A 01 00 14 E5 AD AF E6 B0 77 02 77
04 32 02 20 78 02 2C 03 12 19 04
)
*FORM* 2. TEST-LIST UNWIND-PROTECT *STACKZ* C-FORM CLEANUP PROGN MAKE-LABEL ANODE
SECLASS-OR-2 UNWIND-PROTECT-OPEN *FOR-VALUE* #S(HASH-TABLE EQ (T . 7.) (ONE . 4.) (NIL . 1.))
((VALUES0)) ((VALUES1)) (UNWIND-PROTECT-NORMAL-EXIT) UNWIND-PROTECT-CLOSE MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-175 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROGV
REMOVE-OLD-DEFINITIONS
#Y(C-PROGV
#169Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 6C 04 A7 85 05 05 A7 85 06 80 69 DD 0E
09 76 98 10 09 0E 00 57 57 74 D8 2F 04 11 14 DF 0E 09 76 98 10 09 DC 0E 00 57 57 57 76
2E 04 11 14 60 E0 A9 E1 31 2A 56 1B 0A AB E2 30 A8 A9 E2 30 A8 79 00 DF E0 AE E1 6E 2A
E0 AD E1 6E 2A 6C 0E E0 AB E1 6E 2A 6C 0E AE 8E 03 2E 00 14 AE 8E 05 2B 00 14 AE 8E 07
28 00 76 32 02 20 76 32 02 20 76 2C 03 13 19 07 DC 0E 00 57 57 74 DC 0E 00 57 57 57 76
77 03 2E 04 19 02 CF 1A 50 D0 1A 53 E6 B1 67 09 67 12 77 04 5C 01 1A 4D
)
*FORM* 3. TEST-LIST ONE C-FORM ANODE-CONSTANTP ANODE-CONSTANT-VALUE PROGN 1. *STACKZ* PROGV
ANODE 2. 0. SECLASS-OR-2 ((PUSH)) ((PROGV)) UNWIND *FOR-VALUE* MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-176 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
C-MULTIPLE-VALUE-PROG1 REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-PROG1
#121Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 25 04 80 65 E2 E3 E4 E5 E6 6A 04 12 77 02 E8 AC
E9 AD 03 15 5D 05 1A 3D DA 0E 06 76 98 10 06 0E 00 57 74 2E 07 11 14 DD 0E 06 58 10 06
DE 0E 00 57 57 76 5F 2F 07 11 14 DF E0 AA D6 6E 2A E0 AA D6 6E 2A 6C 0C E0 AA D6 31 2A
57 1B FF B6 AB EB 30 A8 AA 5C 01 14 2C 03 17 19 04 03 18 1A 01 C9 14 0E 00 57 76 2E 07
19 01 00 19 01
)
*FORM* 2. TEST-LIST *FOR-VALUE* #S(HASH-TABLE EQ (NIL . 93.) (ONE . 89.) (ALL . 22.)) MVCALLP
*STACKZ* C-FORM MVCALL PROGN MULTIPLE-VALUE-PROG1 ANODE SECLASS-OR-2 CONST :VALUE #.#'VALUES
:FORM #'VALUES MAKE-CONST (MVCALLP) (MV-TO-STACK) ((MVCALL)) 0. MK-ANODE PROG1
) )
#Y(#:TOP-LEVEL-FORM-177 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MULTIPLE-VALUE-CALL
REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-CALL
#101Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 57 1C 80 47 0E 00 57 74 D9 6C 05 5F A8 80 00
DB 80 00 0E 00 57 75 DC 8F 01 22 90 01 7F 02 A8 8A 84 32 C9 14 0E 0A 58 10 0A AA E0 2F
05 11 14 A7 80 04 E1 80 04 16 02 81 00 8E 01 5E 16 02 E2 80 00 E3 E4 A9 6E 43 2C 03 10
19 03 0E 00 57 74 5F 2F 03 19 01 C8 1A 4C
)
*FORM* 2. TEST-LIST C-FUNCTION-CALL ONE C-FORM (MVCALLP) 0. MVCALLP MVCALL *STACKZ* ALL
(MV-TO-STACK) (MVCALL) MULTIPLE-VALUE-CALL (T . T) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-178 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MULTIPLE-VALUE-LIST
REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-LIST
#46Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 03 1B 08 0E 00 57 74 2E 05 19 01 0E 00 57 74
D9 6C 05 DB DC A9 D6 6E 2A A9 C8 76 2C 03 09 19 02
)
*FORM* 2. TEST-LIST *FOR-VALUE* ALL C-FORM MULTIPLE-VALUE-LIST ANODE ((MV-TO-LIST)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-179 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SETQLIST-MACROP
REMOVE-OLD-DEFINITIONS
#Y(SETQLIST-MACROP
#37Y(01 00 00 00 00 02 A8 8F 00 15 90 00 A7 8B 03 06 A7 6B 00 84 01 0C 16 01 98 57 57 F6 8E
00 6B 00 19 03 02 19 04
)
VENV-SEARCH-MACRO SYMBOL-MACRO-P
) )
#Y(#:TOP-LEVEL-FORM-180 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-SETQ
REMOVE-OLD-DEFINITIONS
#Y(C-SETQ
#143Y(00 00 00 00 00 01 67 00 D6 2F 02 67 00 6E 41 8B 88 05 D8 67 00 2F 04 0E 00 57 1C 39 0E
00 75 84 06 37 0E 00 75 E0 5F 8F 02 21 90 02 9B 57 74 A7 E1 6C 0A A9 8A 03 37 C4 4D 05
E6 AD 2F 04 4E E7 80 03 16 03 9A 57 57 F8 8E 02 5F E8 A9 A9 6E 43 2C 03 14 19 04 2D 05
19 01 DC 6D 58 DC 0E 00 57 76 67 08 67 09 6F 02 00 72 02 2E 0A 19 01 A7 80 03 AB E2 A9
E3 6E 2A 2F 0F FA A9 A8 6C 10 A7 80 04 AC E2 A9 E3 6E 2A 2F 0F FB 16 01 1A FF B3
)
*FORM* 1. TEST-LIST "Odd number of arguments to SETQ: ~S" C-ERROR C-NIL SETQLIST-MACROP SETF
*VENV* *FENV* C-FORM (NIL) ONE ANODE 2. SECLASS-OR-2 C-VARSET
"Cannot assign to non-symbol ~S." (VALUES1) SETQ MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-181 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PSETQ
REMOVE-OLD-DEFINITIONS
#Y(C-PSETQ
#243Y(00 00 00 00 00 01 67 00 D6 2F 02 67 00 6E 41 8B 88 05 D8 67 00 2F 04 0E 00 57 1C 80 99
0E 00 75 84 06 80 96 01 02 0E 00 75 8F 00 1E 90 00 7F 01 90 01 7F 02 A7 E0 6C 0A A9 8A
03 80 92 C4 4D 05 E4 AD 2F 04 4E 16 03 8E 00 62 16 01 01 02 E5 AB AB 8F 01 80 4A 90 01
90 01 E6 A8 E7 6E 2A AC 86 13 80 7E E6 A9 E7 6E 2A AC 86 13 80 7D E9 80 06 A8 80 06 EA
80 05 A7 80 05 67 0E D6 30 A8 AB E6 AA E7 6E 2A E6 AA E7 6E 2A 6C 16 2F 16 FA 0E 0E 57
0F 0E 16 02 91 01 7F 01 66 01 8E 01 FF B6 16 02 0E 17 1C 03 ED 80 01 EE A8 AB AB 6E 43
6F 02 21 2C 03 1A 19 06 2D 05 19 01 DC 6D 58 DC 0E 00 57 76 67 08 67 09 6F 02 00 72 02
2E 0A 19 01 A7 80 05 A9 A8 6C 0C 80 04 E2 0E 0E 58 0F 0E 1A FF 64 A7 80 06 A8 80 06 1A
FF 94 A8 80 05 A7 80 05 1A FF 8B
)
*FORM* 1. TEST-LIST "Odd number of arguments to PSETQ: ~S" C-ERROR C-NIL SETQLIST-MACROP
PSETF *VENV* *FENV* C-FORM ONE C-VARSET 0. *STACKZ* "Cannot assign to non-symbol ~S." (NIL)
ANODE 2. SECLASSES-COMMUTE (PUSH) (POP) SECLASS-OR-2 *FOR-VALUE* (NIL) PSETQ MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-182 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MULTIPLE-VALUE-SETQ
REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-SETQ
#208Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 D8 2F 02 0E 00 57 74 5F 1A 80 51 16
02 DB 0E 00 57 76 2E 07 19 01 CE 1A 0D DF E0 AC E1 6E 2A AC 67 0D 23 08 71 00 76 2C 03
0F 1A 80 8F A7 E5 E6 5F 6A 03 0F 6C 12 A7 80 02 AA E0 A9 E1 6E 2A 2F 13 F9 16 01 1A 80
4E 7F 00 1A 80 66 83 01 00 14 8B 03 07 A7 6B 04 84 05 FF B1 7F 01 A8 89 92 6C 16 02 0E
00 57 74 6E 41 0E 00 57 57 74 DD 6C 07 0E 09 10 09 AB 8A 84 FF A0 0E 00 57 74 E0 AC E1
6E 2A 5F 8F 02 1F 90 02 A7 8A 03 FF A0 D4 4D 05 EA AB 2F 14 4E 16 01 EB 80 00 EC 0E 09
58 0F 09 7F 02 8E 02 61 AE EC 8C 01 2B FF 9B ED AF 77 02 80 00 DF A9 AF 9B 76 2C 03 0F
16 03 11 19 03
)
*FORM* 3. TEST-LIST 0. VENV-SEARCH-MACRO SYMBOL-MACRO-P MULTIPLE-VALUE-SETF C-FORM ALL
*STACKZ* MULTIPLE-VALUE-SETQ ANODE 2. *FOR-VALUE* ((VALUES1)) MK-ANODE NOP (NIL) C-VARSET
SECLASS-OR-2 C-ERROR "Cannot assign to non-symbol ~S." (POP) 1. NV-TO-STACK
) )
#Y(#:TOP-LEVEL-FORM-183 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-LET/LET*
REMOVE-OLD-DEFINITIONS
#Y(C-LET/LET*
#389Y(01 00 00 00 00 02 67 00 D6 2F 02 0E 00 57 74 D8 2F 02 0E 00 57 75 5F 67 04 67 05 6F 02
00 30 60 41 02 67 06 0E 06 10 06 0E 07 10 07 0E 04 10 04 0E 08 10 08 B4 2E 09 41 03 9A
10 0A 9C 10 0B 9E 10 0C 2D 0D 0E 00 57 74 2E 0E 41 02 D8 0E 06 58 0F 06 5F 0E 08 58 0F
08 67 06 67 08 AA AA 62 22 2C 03 0F 41 03 8E 23 06 D8 0E 06 58 0F 06 E5 04 22 76 6B 11
AA AA 6C 12 A7 AD AF 6A 03 13 8E 26 08 01 02 AE AE AE 1A 80 71 95 14 AD AD 2C 03 15 1A
80 B0 90 02 EE 37 01 6E 82 EF 5F F0 5F F1 AE 6A 08 1D A7 AB 0E 06 75 77 03 80 08 90 01
67 06 A8 99 57 76 A8 A8 30 AA 16 03 A8 EC 30 A8 A7 AA 2F 14 16 02 1A 27 90 02 90 02 EB
A9 D6 8B 2A 19 00 2A 01 EB AA EC 31 2A 0B 00 00 A7 69 18 01 91 05 32 00 25 16 01 1B FF
AA A8 A8 2F 14 16 01 F6 AB 7C A1 03 7F 02 7F 01 7F 00 9A 1F 06 99 1F 03 98 20 43 16 03
A7 7C A3 00 5F A9 6E 43 1A 26 03 22 1A 80 45 90 00 90 00 99 57 74 9A 57 57 74 F3 AA 67
08 AA 77 04 A9 2E 1F 58 16 02 F6 AA 7C A1 02 16 01 7F 00 98 20 5C 16 01 A7 7C A3 00 32
02 20 16 01 14 AA F5 67 06 62 26 67 21 77 04 77 02 6F 03 20 8E 26 FF B8 03 23 14 AC AB
77 01 6F 02 20 6B 24 AE 6C 25 A9 6A 03 26 8F 02 0A AF EC 30 A8 AE AA A2 76 30 A8 AD 2E
27 15 16 0A 12 03 16 03 12 04 19 05
)
*FORM* 2. TEST-LIST 0. *VENV* *FENV* *STACKZ* *DENV* *VENVC* PROCESS-DECLARATIONS *SPECIALS*
*IGNORES* *IGNORABLES* PUSH-SPECIALS ANALYZE-LETLIST PROCESS-MOVABLE-VAR-LIST PROGN C-FORM
CHECKING-MOVABLE-VAR-LIST C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP VAR 1.
#Y(C-LET/LET*-1
#29Y(01 00 00 00 00 02 D6 A9 D7 31 2A 74 A7 02 55 1D 0A 65 00 01 A8 37 03 30 B3 19 03 19
03
)
NIL ANODE 2.
)
:NAME :SPECIALP :CLOSUREP :STACKZ MAKE-VAR GET C-BIND-MOVABLE-VAR UNWIND *FOR-VALUE* LET* LET
ANODELIST-SECLASS-OR SECLASS-WITHOUT MK-ANODE OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-184 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-LOCALLY
REMOVE-OLD-DEFINITIONS
#Y(C-LOCALLY
#58Y(00 00 01 00 00 07 3A 01 03 96 00 01 67 01 D7 2F 03 0E 01 75 5F 67 04 67 05 6F 02 00 30
60 41 02 0E 04 10 04 AA 2E 06 41 03 9A 10 07 2D 08 B3 DE A4 76 35 01 11 16 03 11 19 04
)
C-FORM *FORM* 1. TEST-LIST *VENV* *FENV* PROCESS-DECLARATIONS *SPECIALS* PUSH-SPECIALS PROGN
) )
#Y(#:TOP-LEVEL-FORM-185 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MULTIPLE-VALUE-BIND
REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-BIND
#364Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 2F 02 0E 00 57 74 A7 5F 1A 80 4E DC 90
01 0E 00 57 57 74 77 02 77 01 0E 00 57 57 57 78 02 2E 08 19 02 0E 00 57 57 74 5F 6C 08
E8 0E 00 57 57 57 76 6B 08 E9 EA AA EB 6E 2A EA AA EB 6E 2A 6C 17 AA AA 77 02 2C 03 18
16 02 1A 81 08 83 01 00 14 8A 03 04 D9 A8 2F 05 7F 01 A8 89 92 6F 16 02 A7 6E 41 DB 8C
01 2B FF A3 0E 00 57 57 75 5F 67 09 67 0A 6F 02 00 30 60 41 02 67 0B 0E 0B 10 0B 0E 0C
10 0C 0E 09 10 09 0E 0D 10 0D B4 2E 0E 41 03 9A 10 0F 9C 10 10 9E 10 11 2D 12 8F 1B FF
83 0E 00 57 57 74 EE 6C 08 5F 0E 0D 58 0F 0D 62 1C 2E 1A 41 02 D8 0E 0B 58 0F 0B 14 67
0D AA 5F 8F 01 13 90 01 A7 2E 1B 67 0B 80 01 A7 2E 1C 16 01 7F 01 8E 01 6D A7 31 43 16
01 F6 E8 04 21 76 6B 08 AC 6B 1D AE F3 62 25 6E 41 77 02 A9 AD AF 6A 03 1F AF AD B2 5F
8F 01 1D 90 01 90 04 90 04 6A 03 20 6E 42 A8 7E 02 20 00 91 03 91 03 7F 03 66 03 66 03
8E 01 63 A7 31 43 16 03 F6 AC 61 21 67 0B 62 27 67 22 77 04 77 02 32 03 20 78 02 E9 EA
B1 EB 6E 2A EA AC EB 6E 2A 6C 17 B0 6C 23 A9 6A 03 18 8F 02 0A AD DB 30 A8 AC AA A0 76
30 A8 AF 2E 24 15 16 09 12 03 16 03 12 04 19 05
)
*FORM* 3. TEST-LIST 0. "Only symbols may be used as variables, not ~S" C-ERROR 1. LET C-FORM
*VENV* *FENV* *STACKZ* *DENV* *VENVC* PROCESS-DECLARATIONS *SPECIALS* *IGNORES* *IGNORABLES*
PUSH-SPECIALS PROGN MULTIPLE-VALUE-BIND ANODE 2. SECLASS-OR-2 MK-ANODE ALL
PROCESS-FIXED-VAR-LIST PUSH-*VENV* BIND-FIXED-VAR-2 CHECKING-FIXED-VAR-LIST NV-TO-STACK
C-MAKE-CLOSURE C-BIND-FIXED-VAR UNWIND *FOR-VALUE* SECLASS-WITHOUT OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-186 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-COMPILER-LET
REMOVE-OLD-DEFINITIONS
#Y(C-COMPILER-LET
#119Y(00 00 01 00 00 07 3A 01 03 96 00 01 67 01 D7 2F 03 0E 01 57 74 D9 2F 03 0E 01 57 74 01
02 8F 02 3F 90 02 8A 03 25 9A 56 1F 28 9A 56 74 8B 03 22 9A 56 57 1F 1D 9A 56 57 57 1B
17 9A 56 74 80 01 9A 56 57 74 30 5C 14 80 00 1A 10 90 02 80 01 00 1A 74 C5 4D 06 DB 90
06 2F 05 4E 7F 02 8E 02 41 A8 6E 43 A8 31 43 13 63 00 04 DC 0E 01 57 57 76 35 01 11 18
01 19 05
)
C-FORM *FORM* 2. TEST-LIST 0. C-ERROR "Illegal syntax in COMPILER-LET: ~S" PROGN
) )
#Y(#:TOP-LEVEL-FORM-187-1 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) C-BLOCK
REMOVE-OLD-DEFINITIONS
#Y(C-BLOCK
#140Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 A7 8A 03 0A C3 4D 05 D9 AB 2F 03 4E 79 00
DA 0E 06 58 10 06 67 07 6B 08 DE 67 0A E0 AA E1 E2 37 01 6E 82 E3 5F E4 5F E5 67 06 6A
08 11 E5 67 06 E7 5F E8 67 07 6A 0C 14 AC 99 76 0E 15 58 10 15 EB 0E 00 57 57 76 6B 17
DA AC ED 8A 2A 1B 67 06 F3 30 A8 DA EE A9 D6 6E 2A A9 AF 5C 02 14 2C 03 1D 16 01 11 16
02 11 19 02 DA EE A9 D6 6E 2A EF B3 6B 1B B0 77 03 AA F1 B1 5C 04 1A 60
)
*FORM* 2. TEST-LIST C-ERROR "Block name must be a symbol, not ~S" BLOCK *STACKZ* *FOR-VALUE*
MAKE-LABEL :FNODE *FUNC* :LABEL :CONSVAR :NAME :SPECIALP :CLOSUREP :STACKZ MAKE-VAR :USED-FAR
:FOR-VALUE MAKE-BLOCK *BENV* PROGN C-FORM 5. ANODE BLOCK-OPEN NEW-CONST (BLOCK-CLOSE)
MK-ANODE 0.
) )
#Y(#:TOP-LEVEL-FORM-187-2 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-RETURN-FROM
REMOVE-OLD-DEFINITIONS
#Y(C-RETURN-FROM
#211Y(00 00 00 00 00 01 67 00 D6 D7 2C 03 03 0E 00 57 74 A7 8A 03 0A C4 4D 05 DA AB 2F 04 4E
79 00 A7 6B 06 8F 00 23 DD A8 8A 2E 80 42 98 1F 80 9F 0E 00 57 57 74 EE 6C 0A E2 EF A9
E2 AC 6B 1B 77 02 5C 02 14 2C 03 12 19 04 DC A9 2F 04 19 03 E2 E3 A9 E4 67 10 DD AE D7
31 2A 75 DD AF DE 6E 2A 77 04 E6 DD AE D6 6E 2A 77 02 5C 03 1A 55 0E 00 57 57 74 DD A9
DE 6E 2A 6C 0A DD A9 E0 6E 2A 0E 0C 21 4C 0E 13 1B 30 67 0C 1A 1C 03 18 1A 32 A9 E9 A9
DE 6E 2A 37 03 6D B7 E9 A9 DE AA 31 2B 16 01 E9 A8 EA 7D 2A 00 A7 DD AB E0 31 2A 22 60
16 01 DD A9 EB 60 31 2B E2 EC A9 DD AC DE 8B 2A 4B 00 14 E2 AD 77 02 77 01 32 02 20 58
1A FF 74 F1 2E 1D 19 03
)
*FORM* 2. 3. TEST-LIST C-ERROR "Block name must be a symbol, not ~S" BENV-SEARCH
"RETURN-FROM block ~S is impossible from here." BLOCK 6. C-FORM 1. *FUNC* RETURN-FROM (T . T)
UNWIND *STACKZ* JMP MK-ANODE *NO-CODE* FNODE 19. 5. (T . T) ((VALUES0)) ALL (T . T) NEW-CONST
C-RETURN-FROM COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-188 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-TAGBODY
REMOVE-OLD-DEFINITIONS
#Y(C-TAGBODY
#302Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 75 01 02 8F 02 21 90 02 98 20 15 A7 8B 03 04 8E
00 80 A9 A7 8A 05 80 A4 C4 4D 05 DA AB 2F 04 4E 16 01 7F 02 8E 02 5F A8 6E 43 A8 6E 43
3F 02 16 03 41 02 DB 0E 07 58 10 07 DD 67 09 DF AD E0 E1 37 01 6E 82 E2 5F E3 5F E4 67
07 6A 08 10 E4 67 07 E6 B4 6E 41 37 07 C6 F8 6D 19 6A 0A 12 E8 9E 73 00 99 76 0E 14 58
10 14 5F EA 0E 00 75 B2 B2 8F 02 1F 90 02 98 1F 80 4E A7 5F 6C 16 AC EC A9 ED 6E 2A 2F
19 FB A7 80 06 16 01 16 01 7F 02 8E 02 61 AB 7D 43 04 16 03 EF AD F0 6E 2A 6E 41 DB 8C
01 2E 38 0E 1F 1C 06 A8 F5 7E 02 20 01 EF A8 AA 2C 03 21 16 02 11 16 01 11 19 03 A7 80
02 5F 6B 03 80 01 1A FF 59 9A 1F 41 A7 90 03 89 FE FF BA 7F 02 90 01 7F 02 80 05 1A FF
AF EF AD F0 6E 2A A7 6E 41 DB 5F 1A 14 B4 AB AA 6F 01 01 B7 37 06 03 1C F7 6E 59 6E 3D
80 00 81 01 A8 AA 8D 01 2B 66 A7 31 43 16 01 F6 67 07 EF AA 77 02 30 A8 F2 A9 9A 78 02
AC F3 32 02 20 58 FA 16 03 1A FF 8D
)
*FORM* 1. TEST-LIST MAKE-LABEL C-ERROR "Only numbers and symbols are valid tags, not ~S" 0.
*STACKZ* :FNODE *FUNC* :LABELLIST :CONSVAR :NAME :SPECIALP :CLOSUREP :STACKZ MAKE-VAR
:USED-FAR MAKE-TAGBODY #.#'VECTOR *GENV* (NIL) C-FORM ANODE 2. SECLASS-OR-2 TAGBODY 5.
#.#'EQL TAGBODY-OPEN ((TAGBODY-CLOSE-NIL)) *FOR-VALUE* ((NIL)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-189 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-GO
REMOVE-OLD-DEFINITIONS
#Y(C-GO
#214Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 A7 8B 03 03 8E 00 08 A7 8A 05 04 D8
A8 2F 04 A7 2E 05 41 02 8F 01 1A DC A9 8A 2E 37 99 1F 80 A0 DF EF DF AB 6B 1B AB 77 03
5C 01 14 2C 03 11 19 04 DB AA 2F 04 19 04 DF E0 E1 67 0D DC AD E3 6E 2A CF 78 03 E5 AB
DC AE D6 6E 2A 6D 94 77 02 5C 02 1A 58 DC A9 DD 6E 2A 0E 09 21 5B E7 0E 13 1B 80 4F DC
AA E9 6E 2A A7 6E 41 E7 1A 10 15 16 02 1A 18 A9 A8 6F 01 01 AE 88 FE 72 81 00 A7 A9 8D
01 2B 6F AD AA 30 16 99 16 03 F6 67 09 1A 18 AA EA A9 EB 6E 2A 37 03 6D B7 EA A9 EB AA
31 2B 16 01 EA A8 EC 7D 2A 00 A7 DC AC DD 31 2A 22 60 16 01 DF ED EE DF AD AC 77 03 77
02 2C 03 11 19 05 F1 2E 1D 19 04
)
*FORM* 2. TEST-LIST "Tag must be a symbol or a number, not ~S" C-ERROR GENV-SEARCH
"GO to tag ~S is impossible from here." TAGBODY 1. *FUNC* GO (T . T) UNWIND *STACKZ* 3. (NIL)
JMP MK-ANODE 0. *NO-CODE* 5. FNODE 8. 19. (T . T) (VALUES0) (T . T) NEW-CONST C-GO
COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-190 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FUNCTION
REMOVE-OLD-DEFINITIONS
#Y(C-FUNCTION
#254Y(00 00 00 00 00 01 67 00 D6 D7 2C 03 03 0E 00 57 75 0E 00 57 74 8E 01 80 CD A7 85 04 80
C8 A7 2E 05 41 03 A9 DB 37 03 88 B3 37 A9 23 14 80 5D A9 23 17 80 5E A9 24 1C 80 78 E2
A9 8B 2E 80 69 E0 F2 F3 E2 AC F4 31 2A 14 77 02 5C 01 14 2C 03 13 19 06 E2 E3 9F 59 14
E4 E0 B1 77 02 2C 04 10 1A 66 0E 07 1C 17 AA 88 51 13 AA 67 08 DE 37 02 88 B3 0A AA 67
0A DE 37 02 30 B7 0F 0A E0 E1 AC 88 01 50 E2 AD 6B 11 77 02 D2 58 1A 40 EA AB 2F 16 19
06 E0 ED E2 AB 6B 19 77 02 EF E2 AC 6B 19 77 02 03 1B 5D 03 1A FF A4 F5 A9 F4 6E 2A 2E
21 19 06 61 22 2E 23 19 06 9C 1A 22 0E 25 1B 03 0E 26 54 10 25 8F 05 04 AB 84 04 6D 67
27 61 28 A8 F4 7D 2A 00 67 29 31 89 0F 29 14 2F 2A 14 91 04 6C 2B 2E 2C 11 19 04 67 00
30 9C 74 98 1F 09 90 00 24 24 04 98 57 20 43 61 2D A8 2F 16 19 04
)
*FORM* 2. 3. TEST-LIST FUNCTION-NAME-P FENV-SEARCH (NIL) *COMPILING-FROM-FILE*
*KNOWN-FUNCTIONS* #.#'EQUAL *UNKNOWN-FUNCTIONS* FUNCTION (T) CONST :VALUE :FORM MAKE-CONST
MAKE-FUNNAME-CONST ((SYMBOL-FUNCTION)) MK-ANODE MACRO
"~S is not a function. It is a locally defined macro." C-ERROR GLOBAL (T) NEW-CONST (PUSH)
((SVREF)) LOCAL (NIL) FCONST 1. VAR C-VAR C-FUNCTION COMPILER-ERROR LAMBDA *NO-CODE*
*FOR-VALUE* *FUNC* FNODE *ANONYMOUS-COUNT* SYMBOL-SUFFIX C-LAMBDABODY C-FNODE-FUNCTION
"Only symbols and lambda expressions are function names, not ~S"
) )
#Y(#:TOP-LEVEL-FORM-191 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
C-%GENERIC-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS
#Y(C-%GENERIC-FUNCTION-LAMBDA
#50Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1B 03 0E 04 54 10 03 67 05 DB A8 D6 7D 2A 00 67
07 31 89 0F 07 14 6C 08 0E 00 75 5F 60 6A 04 09 2E 0A 11 19 01
)
*FORM* 1. TEST-LIST *NO-CODE* *FOR-VALUE* *FUNC* FNODE *ANONYMOUS-COUNT* SYMBOL-SUFFIX
C-LAMBDABODY C-FNODE-FUNCTION
) )
#Y(#:TOP-LEVEL-FORM-192 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
%OPTIMIZE-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS MACRO
#Y(%OPTIMIZE-FUNCTION-LAMBDA
#34Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 0F 9A 57 75 D7 D8 D9 9B 76 77 02 C5 5D 02 19 04
A9 2E 01 19 03
)
2. MACRO-CALL-ERROR CONS FUNCTION LAMBDA (NIL)
) )
#Y(#:TOP-LEVEL-FORM-193 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
C-%OPTIMIZE-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS
#Y(C-%OPTIMIZE-FUNCTION-LAMBDA
#124Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1B 03 0E 04 54 10 03 0E 00 57 74 6D 9E 67 05 DB
A8 DC 7D 2A 00 67 08 31 89 0F 08 14 6C 09 0E 00 57 75 01 02 AB 6A 05 0A 6B 0B 5F A9 1A
0C 90 00 A7 CC 55 14 80 02 16 01 7F 00 98 20 71 16 01 A7 7C A3 00 DC 0E 0D 58 10 0D E3
AB 5C 02 10 00 2D 0F 12 02 14 E5 E6 AB D6 6E 2A E6 AA D6 6E 2A 6C 12 AB E8 AB D4 78 03
2C 03 15 16 04 11 19 01
)
*FORM* 2. TEST-LIST *NO-CODE* *FOR-VALUE* *FUNC* FNODE 1. *ANONYMOUS-COUNT* SYMBOL-SUFFIX
C-LAMBDABODY C-FNODE-FUNCTION GONE *STACKZ* QUOTE C-QUOTE %OPTIMIZE-FUNCTION-LAMBDA ANODE
SECLASS-OR-2 (PUSH) ((CONS)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-194-1 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) C-FLET
REMOVE-OLD-DEFINITIONS
#Y(C-FLET
#336Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 2F 02 0E 00 57 74 01 02 8F 02 20 90 02
98 1F 0A 90 00 85 04 05 98 57 20 80 FD CA 4D 07 E0 E1 AC 2C 03 0A 4E 16 01 7F 02 8E 02
60 A8 6E 43 A8 6E 43 3F 02 16 03 41 02 67 0D 0E 0D 10 0D 0E 0E 10 0E 0E 0F 10 0F D8 0E
0D 58 0F 0D 5F 0E 0E 58 0F 0E 67 0D 67 0E B4 B4 01 03 8F 04 80 4A 90 04 80 00 90 03 DB
A8 E5 6E 2A 8A 84 80 C7 A7 6B 13 80 02 DC 0E 0D 58 0F 0D E9 37 01 6E 82 EA 5F EB 5F EC
60 ED 5F EE 5F EF 67 0D F0 67 0E 6A 10 1C A8 77 01 99 76 80 02 A7 80 04 16 01 16 01 91
04 7F 04 66 04 8E 04 FF B6 A9 6E 43 A9 6E 43 F2 67 1E 9C 76 31 43 73 00 3F 03 16 05 41
03 98 10 1E 95 1F 9E 36 00 F5 0E 00 57 57 76 6B 21 AD AD 6C 22 E1 AE AA 77 01 6F 02 20
6B 23 B0 6C 24 A9 B2 B4 6A 03 25 95 26 B2 B2 6A 03 27 AC 61 28 67 0D 62 1A 67 29 77 04
77 02 6F 03 20 6A 03 2A 8F 01 0A B1 DC 30 A8 B0 A9 A4 76 30 A8 AF 2E 2B 15 16 02 11 16
05 12 03 19 04 67 05 DB A8 DC 7D 2A 00 90 01 6C 08 91 01 6C 09 90 01 80 03 A7 80 02 16
01 1A FE F1 A7 77 01 E6 A9 2F 12 76 80 01 1A FF 5B
)
*FORM* 2. TEST-LIST 0. FUNCTION-NAME-P *FUNC* FNODE 1. SYMBOL-SUFFIX C-LAMBDABODY C-ERROR
"Illegal function definition syntax in ~S: ~S" FLET *STACKZ* *VENVC* *VENV* 9. :VALUE
MAKE-CONST C-FNODE-FUNCTION :NAME :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ
:VENVC MAKE-VAR #.#'VECTOR *FENV* PUSH-*VENV* PROGN C-FORM CHECKING-MOVABLE-VAR-LIST
ANODELIST-SECLASS-OR SECLASS-WITHOUT C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND
*FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-194-2 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) C-LABELS
REMOVE-OLD-DEFINITIONS
#Y(C-LABELS
#410Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 2F 02 67 04 0E 04 10 04 0E 05 10 05 0E
06 10 06 D8 0E 04 58 0F 04 5F 0E 05 58 0F 05 67 04 67 05 0E 00 57 74 01 05 8F 05 21 90
05 98 1F 0A 90 00 85 07 05 98 57 20 80 5F 03 17 4D 07 ED EA AC 2C 03 17 4E 16 01 7F 05
8E 05 5F AB 6E 43 AB 6E 43 AB 6E 43 AB 6E 43 AB 6E 43 3F 05 16 06 41 05 AB A8 5F 8F 02
11 90 02 80 00 90 01 80 00 91 02 7F 02 66 02 8E 02 6F 67 19 80 00 EF A8 31 43 36 00 16
03 10 19 95 1B 9F 36 00 95 1C AD AD AD 6F 02 17 5F A8 B0 1A 80 64 90 00 80 05 DD 0E 04
58 0F 04 DE 37 01 6E 82 DF 5F E0 5F E1 60 E2 5F E3 5F E4 67 04 E5 67 05 6A 10 11 80 04
67 12 E8 A8 DD 7D 2A 00 90 01 6C 14 80 03 91 00 80 02 5F EA 9A 57 74 2E 16 42 58 76 9D
56 76 80 01 1A FF 64 16 03 1A 1D 90 01 99 1F 77 90 01 A8 F2 A9 F3 31 2A 75 6C 1F 80 04
16 02 7F 01 7F 00 99 20 65 16 02 A7 7C A3 00 F5 0E 00 57 57 76 6B 21 B0 AA 8F 01 2B 90
01 90 01 E8 A8 61 22 6E 2A 8B 84 13 F2 A9 61 23 60 31 2B A7 6B 24 F2 AA 61 25 AA 31 2B
16 01 16 02 91 01 7F 01 66 01 8E 01 55 16 02 B0 A9 6C 26 EA AA AA 77 01 6F 02 20 6B 27
B3 6C 28 A9 B6 B8 6A 03 29 95 2A B5 AE 6A 03 2B AC 61 2C 67 04 62 1E 67 2D 77 04 77 02
6F 03 20 6A 03 2E 8F 01 0B B5 DD 30 A8 B4 A9 04 10 76 30 A8 B2 2E 2F 15 16 04 11 16 07
12 03 19 02
)
*FORM* 2. TEST-LIST 0. *STACKZ* *VENVC* *VENV* FUNCTION-NAME-P 1. :NAME :SPECIALP :CONSTANTP
:USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC MAKE-VAR *FUNC* FNODE SYMBOL-SUFFIX LABELS
ANALYZE-LAMBDALIST C-ERROR "Illegal function definition syntax in ~S: ~S" *FENV* #.#'VECTOR
PUSH-*VENV* C-LAMBDABODY VAR 10. C-FNODE-FUNCTION PROGN C-FORM 9. 3. NEW-CONST 4.
CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR SECLASS-WITHOUT C-MAKE-CLOSURE
C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-194-3 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) C-GENERIC-FLET
REMOVE-OLD-DEFINITIONS
#Y(C-GENERIC-FLET
#335Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 2F 02 0E 00 57 74 01 03 8F 03 20 90 03
98 1F 0A 90 00 85 04 05 98 57 20 80 FD CA 4D 07 E0 DA AC 2C 03 0A 4E 16 01 7F 03 8E 03
60 A9 6E 43 A9 6E 43 A9 6E 43 3F 03 16 04 41 03 67 0C 0E 0C 10 0C 0E 0D 10 0D 0E 07 10
07 D8 0E 0C 58 0F 0C 5F 0E 0D 58 0F 0D 67 0C 67 0D B5 B5 B5 01 03 8F 05 80 46 90 05 80
00 90 03 E3 6C 0F 80 01 E5 0E 0C 58 0F 0C E6 37 01 6E 82 E7 5F E8 5F E9 60 EA 5F EB 5F
EC 67 0C ED 67 0D 6A 10 19 5F EF 9F 56 78 02 99 76 80 01 A7 80 03 16 01 91 05 91 05 7F
05 66 05 66 05 8E 05 FF BA A9 6E 43 A9 6E 43 F0 67 08 9C 76 31 43 73 00 3F 03 16 06 41
03 98 10 08 95 1C 9E 36 00 F2 0E 00 57 57 76 6B 0F AD AD 6C 1E DA AE AA 77 01 6F 02 20
6B 1F B0 6C 20 A9 B2 B4 6A 03 21 95 22 B2 B2 6A 03 23 AC 61 24 67 0C 62 1A 67 25 77 04
77 02 6F 03 20 6A 03 26 8F 01 0A B1 E5 30 A8 B0 A9 A4 76 30 A8 AF 2E 27 15 16 02 11 16
05 12 03 19 05 90 00 A7 80 04 DA A8 9B 57 74 6A 03 06 80 03 DA A8 9B 57 74 9C 57 75 67
07 67 08 6F 02 00 6A 05 09 80 02 16 01 1A FE E5
)
*FORM* 2. TEST-LIST 0. FUNCTION-NAME-P CLOS:GENERIC-FLET CLOS::DEFGENERIC-LAMBDALIST-CALLINFO
*VENV* *FENV* CLOS::MAKE-GENERIC-FUNCTION-FORM C-ERROR
"Illegal function definition syntax in ~S: ~S" *STACKZ* *VENVC* ONE C-FORM 1. :NAME :SPECIALP
:CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC MAKE-VAR GENERIC #.#'VECTOR
PUSH-*VENV* PROGN CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR SECLASS-WITHOUT
C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-194-4 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-GENERIC-LABELS
REMOVE-OLD-DEFINITIONS
#Y(C-GENERIC-LABELS
#338Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 2F 02 67 04 0E 04 10 04 0E 05 10 05 0E
06 10 06 D8 0E 04 58 0F 04 5F 0E 05 58 0F 05 67 04 67 05 0E 00 57 74 01 04 8F 04 21 90
04 98 1F 0A 90 00 85 07 05 98 57 20 80 53 03 17 4D 07 ED E8 AC 2C 03 17 4E 16 01 7F 04
8E 04 5F AA 6E 43 AA 6E 43 AA 6E 43 AA 6E 43 3F 04 16 05 41 04 AA A9 5F 8F 02 11 90 02
80 00 90 01 80 00 91 02 7F 02 66 02 8E 02 6F 67 15 80 00 EE A8 31 43 36 00 16 03 10 15
95 1A 9E 36 00 5F AB 1A 80 5B 90 00 A7 80 05 DD 0E 04 58 0F 04 DE 37 01 6E 82 DF 5F E0
5F E1 60 E2 5F E3 5F E4 67 04 E5 67 05 6A 10 11 80 04 5F E7 E8 AA 9D 57 74 2C 03 14 78
02 9D 56 76 80 03 E8 A8 9B 57 74 9C 57 75 67 06 67 15 6F 02 00 6A 05 16 80 02 16 01 1A
FF 69 90 00 A7 F0 6C 1C 80 02 16 01 7F 00 98 20 71 16 01 A7 7C A3 00 F2 0E 00 57 57 76
6B 1C AE A9 6C 1E E8 AA AA 77 01 6F 02 20 6B 1F B1 6C 20 A9 B4 B6 6A 03 21 95 22 B3 AE
6A 03 23 AC 61 24 67 04 62 1C 67 25 77 04 77 02 6F 03 20 6A 03 26 8F 01 0A B3 DD 30 A8
B2 A9 A6 76 30 A8 B0 2E 27 15 16 03 11 16 06 12 03 19 02
)
*FORM* 2. TEST-LIST 0. *STACKZ* *VENVC* *VENV* FUNCTION-NAME-P 1. :NAME :SPECIALP :CONSTANTP
:USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC MAKE-VAR GENERIC CLOS:GENERIC-LABELS
CLOS::DEFGENERIC-LAMBDALIST-CALLINFO *FENV* CLOS::MAKE-GENERIC-FUNCTION-FORM C-ERROR
"Illegal function definition syntax in ~S: ~S" #.#'VECTOR PUSH-*VENV* ONE C-FORM PROGN
CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR SECLASS-WITHOUT C-MAKE-CLOSURE
C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-195 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MACROLET
REMOVE-OLD-DEFINITIONS
#Y(C-MACROLET
#75Y(00 00 01 00 00 07 3A 01 03 96 00 01 67 01 D7 2F 03 0E 01 57 74 D9 2F 03 0E 01 57 74 5F
8F 01 13 90 01 90 00 A7 80 02 A8 6B 05 80 02 16 02 7F 01 8E 01 6D 67 06 80 00 DC A8 31
43 36 00 10 06 AD DD 0E 01 57 57 76 35 01 11 19 04
)
C-FORM *FORM* 2. TEST-LIST 0. MAKE-MACRO-EXPANDERCONS *FENV* #.#'VECTOR PROGN
) )
#Y(#:TOP-LEVEL-FORM-196 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-SYMBOL-MACROLET
REMOVE-OLD-DEFINITIONS
#Y(C-SYMBOL-MACROLET
#229Y(00 00 01 00 00 07 3A 01 03 96 00 01 67 01 D7 2F 03 0E 01 57 74 D9 2F 03 0E 01 57 75 5F
67 05 67 06 6F 02 00 30 60 41 02 0E 07 10 07 0E 05 10 05 AD 2E 08 41 03 9A 10 09 9C 10
0A 9E 10 0B 2D 0C 0E 01 57 74 01 02 8F 02 22 90 02 98 1F 0E 90 00 8B 03 09 98 57 1F 05
98 57 57 1C 23 CD 4D 05 E3 AB 2F 0D 4E 16 01 7F 02 8E 02 5E A8 6E 43 A8 6E 43 3F 02 16
03 41 02 67 09 A9 6C 0F 5F 1A 1A 90 00 80 02 98 57 74 80 01 1A 5A 83 01 00 CD 4D 07 E5
E6 AC 2C 03 0D 4E 7F 01 A8 89 92 6D 16 02 E7 5F AA AA 1A 1B 16 03 1A 1C 90 01 99 1F 77
90 01 A8 A8 6B 13 77 02 AC 7C A2 04 16 02 7F 01 7F 00 99 20 66 16 02 A7 7C A3 00 67 05
77 01 32 02 21 36 00 0F 05 BE E9 04 17 76 35 01 16 02 12 03 16 03 12 02 19 04
)
C-FORM *FORM* 2. TEST-LIST 0. *VENV* *FENV* *DENV* PROCESS-DECLARATIONS *SPECIALS* *IGNORES*
*IGNORABLES* PUSH-SPECIALS C-ERROR "Illegal syntax in SYMBOL-MACROLET: ~S" INTERSECTION
"~S: symbol ~S must not be declared SPECIAL and a macro at the same time" SYMBOL-MACROLET
#.#'VECTOR MAKE-SYMBOL-MACRO PROGN
) )
#Y(#:TOP-LEVEL-FORM-197 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-EVAL-WHEN
REMOVE-OLD-DEFINITIONS
#Y(C-EVAL-WHEN
#93Y(00 00 01 00 00 07 3A 01 03 96 00 01 67 01 D7 2F 03 0E 01 57 74 D9 2F 03 01 02 0E 01 57
74 5F 1A 20 7A 03 1A 1A 7A 02 1A 16 99 1A 2C 83 01 00 14 23 05 6E A7 23 06 6E A7 23 07
04 DD A8 2F 09 7F 01 A8 89 92 67 16 02 DF 0E 01 57 57 76 8F 01 03 A7 2E 0B AB 8E 03 52
00 14 35 01 19 05
)
C-FORM *FORM* 2. TEST-LIST 0. LOAD COMPILE EVAL
"EVAL-WHEN situation must be EVAL or LOAD or COMPILE, but not ~S" C-ERROR PROGN
C-EVAL-WHEN-COMPILE
) )
#Y(#:TOP-LEVEL-FORM-198 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-COND
REMOVE-OLD-DEFINITIONS
#Y(C-COND
#70Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 75 8F 00 1A 90 00 98 1F 18 90 00 99 57 1B 1A DD
A8 DC 9D 57 76 5C 03 16 02 F6 2E 09 19 01 00 1A 78 D8 A8 2F 04 16 01 1A 70 DA A8 DB 9C
57 76 DC 9E 57 76 5C 04 16 02 1A 60
)
*FORM* 1. TEST-LIST "COND clause without test: ~S" C-ERROR IF PROGN COND OR C-FORM
) )
#Y(#:TOP-LEVEL-FORM-199 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-CASE
REMOVE-OLD-DEFINITIONS
#Y(C-CASE
#449Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 0E 00 57 75 01 03 AA 5F 1A 80 82 D8 A8 2F
04 1A 80 79 79 00 1A 80 6C 7A 00 F9 1A 80 66 99 1A 1A 83 01 00 1F 66 90 00 8E 03 68 A7
02 21 69 A7 23 05 65 5F A8 8A 08 66 A8 5C 01 14 5F 1A 39 00 2A 01 37 01 31 82 0B 00 00
A7 69 09 01 DF 64 02 00 AE 77 02 77 01 E0 64 04 00 AE 9D 70 77 03 77 03 2E 0C 19 07 83
01 00 14 AF DB 37 02 88 B3 06 A7 80 07 A7 80 02 7F 01 A8 89 92 69 16 02 A7 7D 43 01 16
01 A7 9A 57 76 80 05 16 01 7F 01 A8 89 92 FF 8E 16 02 8E 00 03 DC 80 02 A9 7D 43 02 A8
7D 43 01 F6 6E 41 DD 8C 01 2F FF 93 AA E2 6C 0C 01 02 AB 5F 1A 80 59 98 FA 16 01 1A 80
50 E0 99 57 76 6B 0C 99 56 1F 6F 90 01 5F 6B 0E A9 77 03 80 03 16 01 1A 38 A9 6B 11 A8
5F 1A 14 98 57 57 56 19 0B 83 01 00 A9 90 01 E7 37 02 88 B3 6E 7F 01 A8 89 92 6E 9C 19
0B 03 15 1A 33 83 01 00 56 1B FF BB 02 10 0F E0 9C 57 76 5F 2F 0C 11 7F 01 A8 89 92 68
16 02 A7 7D 43 00 A9 84 10 FF B7 5F 6B 0E 67 13 6B 0E 95 14 AD 8C 00 26 4B 03 16 14 EC
AD ED AD 6F 00 17 AE 77 01 32 02 20 76 6B 19 AE EF AB 5F B0 1A 28 90 00 98 57 74 5F 90
02 1A 0B 90 00 A7 9C 76 80 02 16 01 7F 00 98 20 72 16 01 A7 30 A3 16 01 F6 AA 7C A1 02
16 01 7F 00 98 20 55 16 01 A7 7C A3 00 AF F0 B2 32 00 17 78 04 5F AF 1A 17 90 00 98 57
74 99 57 57 74 F1 B2 77 02 77 03 AA 7C A1 02 16 01 7F 00 98 20 66 16 01 A7 7C A3 00 AE
B1 AF 77 03 32 02 20 78 02 2C 03 1D 19 0B
)
*FORM* 1. TEST-LIST "CASE clause without objects: ~S" C-ERROR OTHERWISE #.#'EQ (T NIL) 2.
#Y(C-CASE-IFIFY
#73Y(01 00 00 00 00 02 8E 01 09 00 19 02 02 1A 2C 8F 01 77 D6 9A 56 74 98 1F 73 D7 5F A9
1A 12 90 00 D8 65 00 01 D9 AA 77 02 77 03 80 02 16 01 7F 00 98 20 6B 16 01 A7 30 A3
16 01 58 F6 DA 9C 56 57 76 91 04 68 4A 5C 04 19 02
)
NIL IF OR EQL QUOTE PROGN
)
LET PROGN C-FORM ONE MAKE-LABEL *NO-CODE* ANODE-CONSTANTP ANODE-CONSTANT-VALUE #.#'EQL
*FOR-VALUE* EQL=EQ EQ EQL CASE #.#'THIRD ANODELIST-SECLASS-OR JMPHASH #.#'SECOND JMP MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-200 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FUNCALL-NOTINLINE
REMOVE-OLD-DEFINITIONS
#Y(C-FUNCALL-NOTINLINE
#73Y(02 00 00 00 00 03 A8 D5 2F 01 A9 D7 6C 03 D9 0E 05 58 10 05 AC DB AC 77 02 8F 01 18 90
01 D7 6C 03 A7 80 01 16 01 DC 80 00 D9 0E 05 58 0F 05 7F 01 8E 01 68 DD AF 6E 41 77 02
80 00 DD DE A9 6E 43 2C 03 0A 16 02 11 19 04
)
0. TEST-LIST ONE C-FORM 1. *STACKZ* (FUNCALLP) (PUSH) FUNCALL (T . T) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-201 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FUNCALL-INLINE
REMOVE-OLD-DEFINITIONS
#Y(C-FUNCALL-INLINE
#1079Y(05 00 00 00 00 06 00 2A 01 7B 04 00 00 AA D5 2F 01 90 03 7F 04 2E 02 41 0D 8E 07 0F 8E
06 0C 8E 05 09 8E 04 06 8E 03 03 8F 02 03 D8 2E 04 B3 6E 41 B3 6E 41 BB 6E 41 8E 0B 0B
A7 AA AA 6F 02 33 8C 01 2E 82 65 06 10 00 1B 1E A7 AA 8D 01 2D 18 C5 4D 06 DF 62 1A 2F
05 4E BC AA A9 6F 01 34 5F 6D 9D 7E 02 20 15 9A F6 04 10 2A 05 67 0B 0E 0C 0B 01 00 0E
0D 0B 01 01 0E 0E 0B 01 02 0E 0F 0B 01 03 0E 10 0B 01 04 67 0B 8F 15 02 0E 0C 14 67 11
8F 17 02 0E 0D 14 8F 18 02 0E 0E 14 8F 19 02 0E 0F 14 8E 1A 82 54 E7 62 1F 77 02 E8 67
10 37 05 31 4A 58 10 10 A0 10 0B A2 10 0C A4 10 11 A6 10 0D 04 10 10 0E 04 12 10 0F 62
30 60 67 0C 67 0D 6F 02 00 30 60 41 02 04 1E 2A 0D 00 10 14 00 10 15 00 10 16 01 09 00
0B 12 00 0B 12 01 0B 12 02 0B 12 03 0B 12 04 0B 12 05 0B 12 06 0B 12 07 0B 12 08 0B 12
09 0B 12 0A 0B 12 0B 0B 12 0C 14 01 03 BE 2E 17 41 03 15 0F 16 15 0F 15 15 0F 14 2D 18
DC 0E 0B 58 0F 0B 5F 0E 11 58 0F 11 0E 0B F7 0E 11 F6 BD 69 19 01 62 46 8F 00 3D 8F 4D
81 BF 90 4D 7F 4E 06 38 00 10 0C 06 3B 01 10 0D 06 3E 02 10 0E 06 41 03 10 0F 06 44 04
10 10 B6 EF 2F 1B 12 05 14 90 02 A8 6C 1C A8 80 10 A7 80 11 A7 2E 1D 16 03 7F 00 8E 00
43 16 01 62 45 62 45 62 45 8F 02 80 5B 06 4A 00 1C 04 8F 4F 81 81 04 4F 54 54 14 8E 00
81 85 90 02 EF 2F 1B 14 90 04 A8 6C 1C A8 80 10 A7 80 11 A7 2E 1D A7 A9 77 02 90 04 23
07 81 95 AA EF 6C 1B 90 05 A8 6C 1C A8 80 11 A7 80 12 A7 2E 1D A7 A9 5C 02 16 02 76 80
0D 16 03 91 02 91 02 7F 02 66 02 66 02 8E 02 FF A5 16 03 62 42 23 07 81 66 06 47 00 1B
81 7C 8E 4C 81 82 00 14 06 37 00 10 0C 06 3A 01 10 0D 06 3D 02 10 0E 06 40 03 10 0F 06
43 04 10 10 B6 EF 2F 1B 12 05 14 62 44 A8 6C 1C A8 80 08 A7 80 09 A7 2E 1D 16 03 16 01
B3 7D 43 0C B2 7D 43 0B B1 7D 43 0A B0 7D 43 09 AF 7D 43 08 AE 7D 43 07 AD 7D 43 06 62
3A 62 3A 2F 21 41 02 66 03 66 03 61 22 04 19 76 6B 1B B4 B3 B2 B0 64 1B 01 64 1C 04 64
1D 07 64 1E 0A B3 6F 09 20 B5 B5 6C 23 B4 B4 6C 23 B3 B3 6C 23 B1 B1 6C 23 64 1C 01 6B
24 64 1D 04 6B 24 64 1E 07 64 1F 08 6C 23 64 1F 0A 6B 24 B4 B4 6C 23 6F 09 20 A7 AB AD
6A 03 25 95 26 B8 B8 6A 03 27 5F B3 1A 80 F3 C5 4D 06 DB 62 1A 2F 05 4E DC A8 AB AB 6F
02 33 6F 01 34 1A 2B 37 01 6E 82 B8 A8 77 01 7E 02 20 11 B7 5F 77 01 7E 02 20 10 B6 5F
77 01 7E 02 20 0F 81 04 DD DE A9 77 02 77 02 80 16 16 01 81 01 A8 A8 8D 01 30 4F 16 02
06 10 00 1C FD 52 1A FD 6D 0E 10 1A FD B4 A7 62 47 62 47 62 47 62 47 9E 33 16 01 1A FF
15 5F AA AA AA 62 49 A0 33 16 03 1A FF 08 02 10 1E 90 05 5F 2F 1B 11 06 3A 00 10 0C 06
3D 01 10 0D 06 40 02 10 0E 06 43 03 10 0F 06 46 04 10 10 90 5F 7F 60 EF 2F 1B 12 05 1A
FE 52 00 1A FE 7F 06 47 00 1C FE D0 01 04 62 46 9D 33 1A FE C7 F4 62 4D 64 49 00 32 02
20 58 1A FE 89 8E 4C 70 06 47 00 56 1A FE 7F F5 04 4D 58 1A FE 78 95 26 9A 57 36 00 1A
0D 90 00 95 26 99 56 73 00 99 57 1B 6C 00 14 6F 02 20 AA 7C A1 02 16 01 7F 00 98 20 64
16 01 A7 7C A3 00 95 26 B3 B3 6A 03 27 64 1D 00 95 28 64 1F 01 64 20 02 64 21 03 6A 04
27 64 1F 04 64 20 05 64 21 07 64 22 06 64 23 08 64 24 09 6A 06 29 95 28 64 21 0A 64 22
0B 64 23 0C 6A 04 27 95 26 B6 B6 6A 03 27 B2 61 2A 67 0B 62 43 67 2B 77 04 77 02 6F 0A
20 61 2C B7 B6 B5 B3 64 1F 00 64 20 06 5F 64 22 08 37 07 6E 48 B5 B3 77 01 6F 09 20 6B
2D AB 6C 2E A9 6A 03 2F 8F 02 0A AD D5 30 A8 AC AA A0 76 30 A8 AA 2E 30 15 16 11 12 03
16 03 12 07 19 1F
)
1. TEST-LIST ANALYZE-LAMBDALIST C-FUNCALL-INLINE COMPILER-ERROR C-ERROR
"Too many arguments to ~S" 0. DECLARE IGNORE "Too few arguments to ~S" *STACKZ* *VENV* *FENV*
*BENV* *GENV* *DENV* *VENVC* INLINING
#Y(C-FUNCALL-INLINE-1 #17Y(01 00 00 00 00 02 99 56 25 00 03 02 19 02 00 19 02)
#S(HASH-TABLE EQ (INLINING . 1.) (IN-DEFUN . 1.) (DECLARATION . 1.))
)
*SPECIALS* *IGNORES* *IGNORABLES* PROCESS-DECLARATIONS PUSH-SPECIALS
#Y(C-FUNCALL-INLINE-FINISH-USING-APPLYARG
#196Y(05 00 00 00 00 06 07 01 01 10 01 07 01 02 10 02 07 01 03 10 03 07 01 04 10 04 07 01
05 10 05 07 02 01 74 DB 2F 07 12 05 14 A9 C8 55 54 14 AE 6E 41 AE 6E 41 6F 02 33 AE
6E 41 6A 03 09 DF E0 AA E1 6E 2A E0 AA E1 6E 2A 6C 0D AA AA 77 02 2C 03 0E 16 01 F6
5C 01 0C 00 01 AC 2E 0F 41 02 15 0C 00 03 15 0C 00 02 AB 2E 0F 41 02 15 0C 00 06 15
0C 00 05 A8 23 08 80 42 A8 77 01 2E 0F 41 02 15 0C 00 0C 15 0C 00 0B 65 00 02 2E 10
0C 00 04 65 00 05 65 00 06 AC AC 2C 04 11 41 04 15 0C 00 09 15 0C 00 08 15 0C 00 0A
15 0C 00 07 A8 23 08 11 65 00 0B 2E 12 0C 00 0D 19 06 01 02 3F 02 1A FF BC 00 19 06
)
NIL *VENV* *FENV* *BENV* *GENV* *DENV* ONE C-FORM 0. C-UNLIST APPLY-UNLIST ANODE 2.
SECLASS-OR-2 MK-ANODE PROCESS-FIXED-VAR-LIST BIND-REQ-VARS BIND-OPT-VARS BIND-REST-VARS
)
ONE C-FORM BIND-MOVABLE-VAR PUSH-*VENV* *NO-CODE* LIST* LIST BIND-AUX-VARS PROGN
CHECKING-MOVABLE-VAR-LIST CHECKING-FIXED-VAR-LIST C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE
MAPCAP C-BIND-FIXED-VAR C-BIND-WITH-SVARS UNWIND *FOR-VALUE* FUNCALL ANODELIST-SECLASS-OR
SECLASS-WITHOUT MK-ANODE OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-202 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-LOCAL-FUNCTION-CALL
REMOVE-OLD-DEFINITIONS
#Y(C-LOCAL-FUNCTION-CALL
#64Y(03 00 00 00 00 04 A9 2E 00 41 06 AE 5F B2 AF AF AF AF AF AF 6A 09 01 A7 D7 37 03 88 B3
09 DA B2 77 02 B0 2F 06 19 0B AF 5F B3 B0 B0 B0 B0 B0 5F BA 90 13 B8 B8 B8 B8 B8 6A 07
03 2C 0A 04 19 0B
)
FDESCR-SIGNATURE TEST-ARGUMENT-SYNTAX (NO-KEYS STATIC-KEYS) CCLOSURE-CALL-CODE-PRODUCER
C-DIRECT-FUNCTION-CALL FUNCTION C-FUNCALL-NOTINLINE
) )
#Y(#:TOP-LEVEL-FORM-203 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FUNCTION-CALL
REMOVE-OLD-DEFINITIONS
#Y(C-FUNCTION-CALL
#65Y(02 00 00 00 00 03 A9 A9 6E 41 86 00 18 9A 1F 0F 90 02 24 02 0A 9A 57 1F 06 9A 57 74 84
03 13 A9 A9 2F 07 19 03 A9 A9 5F 9D 57 56 75 60 2C 05 01 19 03 A9 D9 D9 2C 03 05 9A 57
74 9A 76 2E 06 19 03
)
INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE FUNCTION FUNCTION-NAME-P 2. TEST-LIST C-FORM
C-FUNCALL-NOTINLINE
) )
#Y(#:TOP-LEVEL-FORM-204 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FUNCALL
REMOVE-OLD-DEFINITIONS
#Y(C-FUNCALL #23Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 0E 00 57 75 2F 03 19 01) *FORM*
2. TEST-LIST C-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-205 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-APPLY
REMOVE-OLD-DEFINITIONS
#Y(C-APPLY
#357Y(00 00 00 00 00 01 46 00 81 59 67 01 D7 2F 03 00 2A 01 0E 01 57 74 0E 01 57 57 0B 01 00
14 6E 41 6E 8A A8 A8 60 2C 03 04 1B 80 70 99 1F 27 90 01 24 06 22 99 57 1F 1E 99 57 74
85 07 18 9A 2A 01 9A 57 56 0B 00 00 A9 DD DD 2C 03 03 64 00 00 85 09 80 F3 16 01 A8 EE
6C 1A E4 0E 1B 58 10 1B 64 06 00 F1 AC 77 02 8F 01 1C 90 01 EE 6C 1A A7 80 01 9A 57 1C
09 E4 0E 1B 58 0F 1B F2 80 01 16 01 7F 01 8E 01 64 F3 AE 77 02 80 00 F3 F4 A9 6E 43 2C
03 20 16 02 11 16 04 47 19 01 A8 64 03 00 37 01 6D A4 64 04 00 6D 9C 9C 57 56 75 60 2C
05 05 16 03 1A 64 67 0D 00 76 9C 33 0E 13 1C 80 5E 1A 80 4E 64 05 00 64 09 00 37 01 6D
A4 64 0A 00 6D 9C AA 5F 2C 05 05 16 09 1A FF BD 64 04 00 8B 03 0E 64 04 00 88 52 80 76
64 04 00 88 58 80 6F 64 04 00 67 0D E3 A8 E4 7D 2A 00 89 FF 0F E5 64 05 00 77 02 67 11
E7 37 02 88 B3 FF A8 0E 13 1C 0D 64 04 00 67 14 E7 37 02 30 BA 57 1B 0A 64 04 00 6B 15
EB 37 01 31 76 14 98 1F 0E DB EC 9A 76 77 02 AE 60 2C 03 04 1B FF 89 16 06 1A FF 17 A7
9C 33 16 05 1A FF 0F A7 AE 69 0A 02 64 01 00 2E 0B 41 03 A9 E1 37 03 88 B3 FF 81 A9 23
18 60 16 05 1A FE F2 19 01
)
C-APPLY *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE FUNCTION
FUNCTION-NAME-P 2. DECLARED-NOTINLINE
#Y(C-APPLY-C-LOCAL-APPLY
#83Y(01 00 00 00 00 02 A8 2E 02 41 06 8E 02 1B 65 01 01 37 01 6D A4 65 01 01 6D 9C 65 00
01 AF AF AF AF AF AF 6A 09 03 23 04 03 00 19 08 65 01 01 37 01 6D A4 65 01 01 6D 9C
65 00 01 AF AF AF AF AF 5F 65 00 01 90 11 B7 B7 B7 B7 B7 6A 07 05 2C 0A 06 48 01
)
NIL NIL FDESCR-SIGNATURE TEST-ARGUMENT-SYNTAX NO-KEYS CCLOSURE-CALL-CODE-PRODUCER
C-DIRECT-FUNCTION-CALL
)
FENV-SEARCH (NIL) *FUNC* FNODE 1. IN-DEFUN *DENV* #.#'EQUAL *COMPILING-FROM-FILE*
*INLINE-DEFINITIONS* GET-FUNNAME-SYMBOL INLINE-EXPANSION LAMBDA LOCAL ONE C-FORM *STACKZ*
(APPLYP) (PUSH) APPLY (T . T) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-206 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PLUS
REMOVE-OLD-DEFINITIONS
#Y(C-PLUS
#118Y(00 00 00 00 00 01 67 00 D6 2F 02 D8 01 02 0E 00 75 5F 1A 3C AB AA 7E 02 33 04 1A 32 9B
1A 11 9B 25 07 12 9A 56 1A 09 C8 1A 01 C9 14 90 03 5C 02 14 2E 06 19 05 DF AB 9C 5D 02
1A 35 83 01 00 14 85 04 08 A7 2E 05 F8 14 8A 05 49 A7 80 03 7F 01 A8 89 92 68 16 02 A8
6E 41 A7 23 03 FF BE A7 23 01 FF BC A9 7D 43 02 AA 23 03 03 AA 80 02 DF 9B 58 14 2E 0B
19 05
)
*FORM* 1. TEST-LIST 0. C-CONSTANTP C-CONSTANT-VALUE C-FORM
#S(HASH-TABLE EQ (-1. . 8.) (1. . 5.) (0. . 1.)) 1+ 1- + C-GLOBAL-FUNCTION-CALL-FORM
) )
#Y(#:TOP-LEVEL-FORM-207 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MINUS
REMOVE-OLD-DEFINITIONS
#Y(C-MINUS
#166Y(00 00 00 00 00 01 67 00 D6 2F 02 67 00 6E 41 D6 6F 01 2B D8 D8 01 02 8E 04 20 0E 00 57
74 A7 85 04 08 A7 2E 05 F7 14 8A 05 0C 98 F9 16 01 8F 04 0C 0E 00 57 1A 0B 99 FA 1A 72
8E 04 74 0E 00 57 57 14 5F 1A 36 AC AA 7E 01 34 05 1A 2C DB AB AB 5C 03 10 00 2D 07 11
19 06 00 1A 3E AB 24 03 04 9A 57 1C 75 9C 1A 27 83 01 00 14 85 04 08 A7 2E 05 F8 14 8A
05 4F A7 80 03 7F 01 A8 89 92 68 16 02 8F 01 49 DD AA 23 03 53 AB 24 03 06 9B 14 5C 01
1A 07 AA AC 6F 00 34 5C 02 14 AA 6E 43 32 02 20 76 2E 09 19 06
)
*FORM* 2. TEST-LIST 0. C-CONSTANTP C-CONSTANT-VALUE + C-PLUS - C-GLOBAL-FUNCTION-CALL-FORM
) )
#Y(#:TOP-LEVEL-FORM-208 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-SVSTORE
REMOVE-OLD-DEFINITIONS
#Y(C-SVSTORE
#59Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 0E 00 57 57 74 0E 00 57 57 57 74 37
01 6E 82 37 01 6E 82 D8 A9 AD 77 02 A9 AD 77 02 77 02 D9 AC AC AC 77 04 77 03 2E 05 19
06
)
*FORM* 4. TEST-LIST LET* %SVSTORE C-FORM
) )
#Y(#:TOP-LEVEL-FORM-209 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-EQ
REMOVE-OLD-DEFINITIONS
#Y(C-EQ
#81Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 0E 00 57 57 74 A8 85 03 04 A7 84 03
1E A8 85 03 08 A8 A8 98 F9 99 F8 16 02 A7 85 03 04 A7 85 05 19 DE A9 A9 5C 03 14 2E 08
19 03 D9 A9 6B 05 A9 2E 05 55 14 77 02 2E 06 19 03 DC A9 5C 02 1A 66
)
*FORM* 3. TEST-LIST C-CONSTANTP QUOTE C-CONSTANT-VALUE C-FORM NULL
C-GLOBAL-FUNCTION-CALL-FORM EQ
) )
#Y(#:TOP-LEVEL-FORM-210 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EQL=EQ
REMOVE-OLD-DEFINITIONS
#Y(EQL=EQ #23Y(01 00 00 00 00 02 A8 31 03 1D 0A A8 31 0A 1D 05 A8 31 18 19 02 19 02))
)
#Y(#:TOP-LEVEL-FORM-211 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-EQL
REMOVE-OLD-DEFINITIONS
#Y(C-EQL
#82Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 0E 00 57 57 74 A8 85 03 04 A7 84 03
19 A8 85 03 06 A8 6B 05 84 07 1E A7 85 03 06 A7 6B 05 84 07 14 DF 2E 0B 19 03 D9 A9 6B
05 A9 6B 05 6D FE 77 02 2E 06 19 03 DD A9 A9 5C 03 10 00 2D 09 11 19 03
)
*FORM* 3. TEST-LIST C-CONSTANTP QUOTE C-CONSTANT-VALUE C-FORM EQL=EQ EQ C-EQ EQL
C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-212 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EQUAL=EQL
REMOVE-OLD-DEFINITIONS
#Y(EQUAL=EQL #23Y(01 00 00 00 00 02 A8 31 03 1D 0A A8 31 05 1D 05 A8 31 18 19 02 19 02))
)
#Y(#:TOP-LEVEL-FORM-213 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-EQUAL
REMOVE-OLD-DEFINITIONS
#Y(C-EQUAL
#59Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 0E 00 57 57 74 A8 85 03 06 A8 6B 04
84 05 0F A7 85 03 06 A7 6B 04 84 05 05 DD 2E 09 19 03 DB A9 A9 5C 03 10 00 2D 07 11 19
03
)
*FORM* 3. TEST-LIST C-CONSTANTP C-CONSTANT-VALUE EQUAL=EQL EQL C-EQL EQUAL
C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-214 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAP-ON-CARS-INNER
REMOVE-OLD-DEFINITIONS
#Y(C-MAP-ON-CARS-INNER
#65Y(03 00 01 00 00 0A 3A 01 0D 79 01 8E 02 0B AB A9 6E 43 35 01 19 05 8F 02 75 90 02 37 01
6E 82 D5 D6 AA 77 02 D7 AA D8 AD 77 02 77 02 77 01 B1 B1 91 0A AE A3 76 68 4F 77 03 D9
B0 77 02 5C 04 19 07
)
IF CONSP LET CAR RETURN-FROM
) )
#Y(#:TOP-LEVEL-FORM-215 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAP-ON-CARS
REMOVE-OLD-DEFINITIONS
#Y(C-MAP-ON-CARS
#141Y(03 00 00 00 00 04 00 2A 02 7B 04 00 00 7B 03 00 01 98 2A 01 37 01 31 82 0B 00 00 37 01
6E 82 5F AC 1A 0C 90 00 37 01 6E 82 80 02 16 01 7F 00 98 20 71 16 01 A7 7C A3 00 37 01
6E 82 D5 64 04 00 C1 76 77 01 D7 AC D8 D9 AE B4 6F 01 17 DA AE B2 69 06 01 B2 B2 6A 03
07 DD 5F B3 1A 11 90 00 A7 DE A9 77 02 77 02 AA 7C A1 02 16 01 7F 00 98 20 6C 16 01 A7
30 A3 16 01 76 DF B2 77 02 77 05 77 03 77 03 E0 64 07 00 77 02 5C 04 19 09
)
LET (NIL) BLOCK LET* #.#'LIST TAGBODY
#Y(C-MAP-ON-CARS-1
#29Y(01 00 00 00 00 02 D6 65 00 01 65 01 01 D7 65 01 02 9E 78 02 65 00 01 77 03 5C 03 19
02
)
NIL SETQ %FUNCALL
)
C-MAP-ON-CARS-INNER SETQ CDR GO LIST-NREVERSE
) )
#Y(#:TOP-LEVEL-FORM-216 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAP-ON-LISTS
REMOVE-OLD-DEFINITIONS
#Y(C-MAP-ON-LISTS
#160Y(03 00 00 00 00 04 37 01 6E 82 37 01 6E 82 5F AB 1A 0C 90 00 37 01 6E 82 80 02 16 01 7F
00 98 20 71 16 01 A7 7C A3 00 37 01 6E 82 D5 AB C1 76 77 01 D7 AC D8 D9 AE B3 6F 01 17
DA AE DB DC 5F B3 1A 0C 90 00 DD A8 77 02 80 02 16 01 7F 00 98 20 71 16 01 A7 30 A3 16
01 76 DE B4 77 02 77 03 DF B4 B9 E0 BA 04 0F 78 02 B7 77 03 77 03 DF 5F B4 1A 11 90 00
A7 E1 A9 77 02 77 02 AA 7C A1 02 16 01 7F 00 98 20 6C 16 01 A7 30 A3 16 01 76 E2 B3 77
02 77 06 77 03 77 03 E3 AE 77 02 5C 04 19 08
)
LET (NIL) BLOCK LET* #.#'LIST TAGBODY IF OR ATOM RETURN-FROM SETQ %FUNCALL CDR GO
LIST-NREVERSE
) )
#Y(#:TOP-LEVEL-FORM-217 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPC
REMOVE-OLD-DEFINITIONS
#Y(C-MAPC
#154Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 0E 00 57 75 6E 41 86 03 05 E4 2E 10 19 01
37 01 6E 82 A7 0E 00 57 57 57 76 37 01 6E 82 5F A9 1A 0C 90 00 37 01 6E 82 80 02 16 01
7F 00 98 20 71 16 01 A7 7C A3 00 37 01 6E 82 D9 AC 0E 00 57 57 74 77 02 77 01 DA AC DB
DC AE B1 6F 01 17 DD AE DE B2 B2 6A 03 0A E0 5F B3 1A 11 90 00 A7 E1 A9 77 02 77 02 AA
7C A1 02 16 01 7F 00 98 20 6C 16 01 A7 30 A3 16 01 76 E2 B2 77 02 77 05 77 03 77 03 AE
5C 04 16 04 F6 2E 0E 19 01
)
*FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P LET BLOCK LET* #.#'LIST TAGBODY
#Y(C-MAPC-1 #16Y(01 00 00 00 00 02 D5 0E 01 57 74 9B 5D 02 19 02) %FUNCALL *FORM*)
C-MAP-ON-CARS-INNER SETQ CDR GO C-FORM MAPC C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-218 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPL
REMOVE-OLD-DEFINITIONS
#Y(C-MAPL
#191Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 0E 00 57 75 6E 41 86 03 05 E7 2E 13 19 01
37 01 6E 82 A7 0E 00 57 57 57 76 37 01 6E 82 5F A9 1A 0C 90 00 37 01 6E 82 80 02 16 01
7F 00 98 20 71 16 01 A7 7C A3 00 37 01 6E 82 D9 AC 0E 00 57 57 74 77 02 77 01 DA AC DB
DC AE B1 6F 01 17 DD AE DE DF 5F B3 1A 0C 90 00 E0 A8 77 02 80 02 16 01 7F 00 98 20 71
16 01 A7 30 A3 16 01 76 E1 B4 77 02 77 03 E2 0E 00 57 74 A4 78 02 E3 5F B4 1A 11 90 00
A7 E4 A9 77 02 77 02 AA 7C A1 02 16 01 7F 00 98 20 6C 16 01 A7 30 A3 16 01 76 E5 B3 77
02 77 06 77 03 77 03 AE 5C 04 16 04 F6 2E 11 19 01
)
*FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P LET BLOCK LET* #.#'LIST TAGBODY IF OR ATOM
RETURN-FROM %FUNCALL SETQ CDR GO C-FORM MAPL C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-219 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPCAR
REMOVE-OLD-DEFINITIONS
#Y(C-MAPCAR
#61Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1C 12 0E 00 57 74 0E 00 57 75 6E 41 86 06 11 DF
2E 0B 19 01 D9 0E 00 57 58 10 00 2D 05 11 19 01 DC 0E 00 57 74 0E 00 57 75 6A 03 08 2E
09 19 01
)
*FORM* 3. TEST-LIST *FOR-VALUE* MAPC C-MAPC INLINE-CALLABLE-FUNCTION-P CONS C-MAP-ON-CARS
C-FORM MAPCAR C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-220 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPLIST
REMOVE-OLD-DEFINITIONS
#Y(C-MAPLIST
#61Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1C 12 0E 00 57 74 0E 00 57 75 6E 41 86 06 11 DF
2E 0B 19 01 D9 0E 00 57 58 10 00 2D 05 11 19 01 DC 0E 00 57 74 0E 00 57 75 6A 03 08 2E
09 19 01
)
*FORM* 3. TEST-LIST *FOR-VALUE* MAPL C-MAPL INLINE-CALLABLE-FUNCTION-P CONS C-MAP-ON-LISTS
C-FORM MAPLIST C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-221 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPCAN
REMOVE-OLD-DEFINITIONS
#Y(C-MAPCAN
#45Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 0E 00 57 75 6E 41 86 03 05 DC 2E 08 19 01
D9 0E 00 57 74 0E 00 57 75 6A 03 05 2E 06 19 01
)
*FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P NRECONC C-MAP-ON-CARS C-FORM MAPCAN
C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-222 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPCON
REMOVE-OLD-DEFINITIONS
#Y(C-MAPCON
#45Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 0E 00 57 75 6E 41 86 03 05 DC 2E 08 19 01
D9 0E 00 57 74 0E 00 57 75 6A 03 05 2E 06 19 01
)
*FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P NRECONC C-MAP-ON-LISTS C-FORM MAPCON
C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-223 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPCAP
REMOVE-OLD-DEFINITIONS
#Y(C-MAPCAP
#61Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1C 12 0E 00 57 74 0E 00 57 75 6E 41 86 06 11 DF
2E 0B 19 01 D9 0E 00 57 58 10 00 2D 05 11 19 01 DC 0E 00 57 74 0E 00 57 75 6A 03 08 2E
09 19 01
)
*FORM* 3. TEST-LIST *FOR-VALUE* MAPC C-MAPC INLINE-CALLABLE-FUNCTION-P REVAPPEND
C-MAP-ON-CARS C-FORM MAPCAP C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-224 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPLAP
REMOVE-OLD-DEFINITIONS
#Y(C-MAPLAP
#61Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1C 12 0E 00 57 74 0E 00 57 75 6E 41 86 06 11 DF
2E 0B 19 01 D9 0E 00 57 58 10 00 2D 05 11 19 01 DC 0E 00 57 74 0E 00 57 75 6A 03 08 2E
09 19 01
)
*FORM* 3. TEST-LIST *FOR-VALUE* MAPL C-MAPL INLINE-CALLABLE-FUNCTION-P REVAPPEND
C-MAP-ON-LISTS C-FORM MAPLAP C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-225
#26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
C-TYPEP-ALIST1 "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT C-TYPEP-ALIST1
'#1=((ARRAY . ARRAYP) (ATOM . ATOM) (BIT-VECTOR . BIT-VECTOR-P) (CHARACTER . CHARACTERP)
(COMMON . COMMONP) (COMPILED-FUNCTION . COMPILED-FUNCTION-P) (COMPLEX . COMPLEXP)
(CONS . CONSP) (DOUBLE-FLOAT . DOUBLE-FLOAT-P) (FIXNUM . FIXNUMP) (FLOAT . FLOATP)
(FUNCTION . FUNCTIONP) (HASH-TABLE . HASH-TABLE-P) (INTEGER . INTEGERP)
(KEYWORD . KEYWORDP) (LIST . LISTP) (LONG-FLOAT . LONG-FLOAT-P) (NULL . NULL)
(NUMBER . NUMBERP) (PACKAGE . PACKAGEP) (PATHNAME . PATHNAMEP)
(RANDOM-STATE . RANDOM-STATE-P) (RATIONAL . RATIONALP) (READTABLE . READTABLEP)
(REAL . REALP) (SEQUENCE . SEQUENCEP) (SHORT-FLOAT . SHORT-FLOAT-P)
(SIMPLE-ARRAY . SIMPLE-ARRAY-P) (SIMPLE-BIT-VECTOR . SIMPLE-BIT-VECTOR-P)
(SIMPLE-STRING . SIMPLE-STRING-P) (SIMPLE-VECTOR . SIMPLE-VECTOR-P)
(SINGLE-FLOAT . SINGLE-FLOAT-P)
(CLOS:STANDARD-GENERIC-FUNCTION . CLOS::GENERIC-FUNCTION-P)
(CLOS:STANDARD-OBJECT . CLOS::STD-INSTANCE-P) (STREAM . STREAMP) (STRING . STRINGP)
(SYMBOL . SYMBOLP) (VECTOR . VECTORP)
) )
WARN #1#
)
#Y(#:TOP-LEVEL-FORM-226
#26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
C-TYPEP-ALIST2 "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT C-TYPEP-ALIST2
'#1=((BIGNUM (X) (AND (INTEGERP X) (NOT (FIXNUMP X)))) (BIT (X) (OR (EQL X 0.) (EQL X 1.)))
(NIL (X) (DECLARE (IGNORE X)) NIL) (RATIO (X) (AND (RATIONALP X) (NOT (INTEGERP X))))
(STANDARD-CHAR (X) (AND (CHARACTERP X) (STANDARD-CHAR-P X)))
(STRING-CHAR (X) (AND (CHARACTERP X) (STRING-CHAR-P X)))
(STRUCTURE (X)
(LET ((Y (TYPE-OF X)))
(AND (SYMBOLP Y) (GET Y 'DEFSTRUCT-DESCRIPTION) (%STRUCTURE-TYPE-P Y X))
))
(T (X) (DECLARE (IGNORE X)) T)
) )
WARN #1#
)
#Y(#:TOP-LEVEL-FORM-227 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-TYPEP-ARRAY
REMOVE-OLD-DEFINITIONS
#Y(C-TYPEP-ARRAY #19Y(01 00 00 00 00 02 00 2A 01 7B 02 00 00 A7 2B 00 01 19 03)
#Y(C-TYPEP-ARRAY-1
#137Y(01 00 02 00 01 00 3A 03 02 C1 F9 3A 02 02 C1 F8 D7 65 00 01 AD 77 02 AC 23 01 27 D8
D9 AF 77 02 DA AF 6B 06 77 02 77 03 5C 01 14 AC 23 01 16 AC 8A 05 15 DC AD 6E 41 DD
B1 77 02 77 03 DE 5F AF 1A 34 00 1A 65 00 1A 39 DC AD DD B1 77 02 77 03 5C 01 1A 2D
00 1A 14 90 00 A7 23 01 77 DC DA A9 77 02 DF B6 AE 77 03 77 03 5C 01 14 81 04 AA 7C
A1 02 16 01 7F 00 98 20 5E 16 01 A7 30 A3 16 02 58 14 32 02 20 5D 02 19 05
)
NIL * AND EQUAL ARRAY-ELEMENT-TYPE QUOTE UPGRADED-ARRAY-ELEMENT-TYPE EQL ARRAY-RANK 0.
ARRAY-DIMENSION
) ) )
#Y(#:TOP-LEVEL-FORM-228 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-TYPEP-VECTOR
REMOVE-OLD-DEFINITIONS
#Y(C-TYPEP-VECTOR #19Y(01 00 00 00 00 02 00 2A 01 7B 02 00 00 A7 2B 00 01 19 03)
#Y(C-TYPEP-VECTOR-1
#43Y(01 00 01 00 01 00 3A 02 02 C1 F8 D7 65 00 01 AC 77 02 AB 23 01 12 D8 D9 AE C5 78 02
DB AE 77 02 77 03 5C 01 5D 02 19 04 00 1A 79
)
NIL * AND EQL ARRAY-DIMENSION (0.) QUOTE
) ) )
#Y(#:TOP-LEVEL-FORM-229 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-TYPEP-NUMBER
REMOVE-OLD-DEFINITIONS
#Y(C-TYPEP-NUMBER #23Y(02 00 00 00 00 03 00 2A 02 7B 03 00 00 7B 02 00 01 A7 2B 00 01 19 04)
#Y(C-TYPEP-NUMBER-1
#147Y(01 00 02 00 01 00 3A 03 02 C1 F9 3A 02 02 C1 F8 D7 65 00 02 AD 77 02 AC 23 01 80 55
65 00 02 AD 35 01 1B 80 4F 9D 1F 80 4F 9D 57 1B 80 4A 65 00 02 90 06 35 01 1C 80 40
D9 9E 56 14 AF 77 03 5C 01 14 AC 23 01 35 65 00 02 AD 35 01 1B 30 9D 1F 0D 9D 57 1B
09 65 00 02 90 06 35 01 1B 24 CB 14 DB 65 00 01 65 00 01 65 00 01 B1 2C 06 07 DD 00
4F 00 1A 4D D8 9E 1A 43 C5 1A 64 00 1A 0D DE 9E 1A 03 DF 9E 56 14 B0 77 03 5C 01 14
32 02 20 5D 02 19 05
)
NIL * AND <= < "~S: argument to ~S must be *, ~S or a list of ~S: ~S" TYPEP C-WARN C-TYPEP
>= > "~S: argument to ~S must be *, ~S or a list of ~S: ~S"
) ) )
#Y(#:TOP-LEVEL-FORM-230
#144Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 DA 2E 06 76 DC DD 2E 06 76
DE CA 76 E0 E1 2E 0D 76 E3 CF 76 E5 E5 E6 2F 12 76 E8 D4 76 EA 03 16 76 EC 03 18 76 EE EE
EF 2F 12 76 F0 F0 F1 2F 12 76 F2 F2 F3 2F 12 76 F4 F4 F5 2F 12 76 61 21 61 21 61 22 2F 12
76 61 23 61 23 61 24 2F 12 76 61 25 61 25 61 26 2F 12 76 61 27 61 28 2E 0D 76 61 29 61 2A
2E 0D 76 61 2B 61 2C 2E 0D 76 61 2D 61 2E 2E 0D 76 77 14 31 75 C0 19 01
)
C-TYPEP-ALIST3 "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT C-TYPEP-ALIST3
`((ARRAY . ,(C-TYPEP-ARRAY 'ARRAYP)) (SIMPLE-ARRAY . ,(C-TYPEP-ARRAY 'SIMPLE-ARRAY-P))
(VECTOR .
,#'(LAMBDA (X &OPTIONAL (EL-TYPE '*) (SIZE '*) &REST ILLEGAL-ARGS)
(DECLARE (IGNORE ILLEGAL-ARGS))
`#1=(AND (VECTORP ,X)
,@(IF (EQ EL-TYPE '*) 'NIL
`#2=((EQUAL (ARRAY-ELEMENT-TYPE ,X) ',(UPGRADED-ARRAY-ELEMENT-TYPE EL-TYPE)))
)
,@(IF (EQ SIZE '*) 'NIL `#3=((EQL (ARRAY-DIMENSION ,X 0.) ',SIZE)))
) ) )
(SIMPLE-VECTOR . ,(C-TYPEP-VECTOR 'SIMPLE-VECTOR-P))
(COMPLEX .
,#'(LAMBDA (X &OPTIONAL (RTYPE '*) (ITYPE RTYPE) &REST ILLEGAL-ARGS)
(DECLARE (IGNORE ILLEGAL-ARGS))
`#4=(AND (COMPLEXP ,X) ,@(IF (EQ RTYPE '*) 'NIL `#5=((TYPEP (REALPART ,X) ',RTYPE)))
,@(IF (EQ ITYPE '*) 'NIL `#6=((TYPEP (IMAGPART ,X) ',ITYPE)))
) ) )
(INTEGER . ,(C-TYPEP-NUMBER 'INTEGER 'INTEGERP))
(MOD .
,#'(LAMBDA (X &OPTIONAL N &REST ILLEGAL-ARGS) (DECLARE (IGNORE ILLEGAL-ARGS))
(UNLESS (INTEGERP N) (C-WARN #7="~S: argument to MOD must be an integer: ~S" 'TYPEP N)
(THROW 'C-TYPEP NIL)
)
`#8=(AND (INTEGERP ,X) (NOT (MINUSP ,X)) (< ,X ,N))
) )
(SIGNED-BYTE .
,#'(LAMBDA (X &OPTIONAL (N '*) &REST ILLEGAL-ARGS) (DECLARE (IGNORE ILLEGAL-ARGS))
(UNLESS (OR (EQ N '*) (INTEGERP N))
(C-WARN #9="~S: argument to SIGNED-BYTE must be an integer or * : ~S" 'TYPEP N)
(THROW 'C-TYPEP NIL)
)
`#10=(AND (INTEGERP ,X) ,@(IF (EQ N '*) 'NIL `#11=((< (INTEGER-LENGTH ,X) ,N))))
) )
(UNSIGNED-BYTE .
,#'(LAMBDA (X &OPTIONAL (N '*) &REST ILLEGAL-ARGS) (DECLARE (IGNORE ILLEGAL-ARGS))
(UNLESS (OR (EQ N '*) (INTEGERP N))
(C-WARN #12="~S: argument to UNSIGNED-BYTE must be an integer or * : ~S" 'TYPEP N)
(THROW 'C-TYPEP NIL)
)
`#13=(AND (INTEGERP ,X) (NOT (MINUSP ,X))
,@(IF (EQ N '*) 'NIL `#14=((<= (INTEGER-LENGTH ,X) ,N)))
) ) )
(REAL . ,(C-TYPEP-NUMBER 'REAL 'REALP)) (RATIONAL . ,(C-TYPEP-NUMBER 'RATIONAL 'RATIONALP))
(FLOAT . ,(C-TYPEP-NUMBER 'FLOAT 'FLOATP))
(SHORT-FLOAT . ,(C-TYPEP-NUMBER 'SHORT-FLOAT 'SHORT-FLOAT-P))
(SINGLE-FLOAT . ,(C-TYPEP-NUMBER 'SINGLE-FLOAT 'SINGLE-FLOAT-P))
(DOUBLE-FLOAT . ,(C-TYPEP-NUMBER 'DOUBLE-FLOAT 'DOUBLE-FLOAT-P))
(LONG-FLOAT . ,(C-TYPEP-NUMBER 'LONG-FLOAT 'LONG-FLOAT-P))
(STRING . ,(C-TYPEP-VECTOR 'STRINGP)) (SIMPLE-STRING . ,(C-TYPEP-VECTOR 'SIMPLE-STRING-P))
(BIT-VECTOR . ,(C-TYPEP-VECTOR 'BIT-VECTOR-P))
(SIMPLE-BIT-VECTOR . ,(C-TYPEP-VECTOR 'SIMPLE-BIT-VECTOR-P))
) )
WARN ARRAY ARRAYP C-TYPEP-ARRAY SIMPLE-ARRAY SIMPLE-ARRAY-P VECTOR
#Y(#:TOP-LEVEL-FORM-230-1
#73Y(01 00 02 00 01 00 3A 03 02 C0 F9 3A 02 02 C0 F8 D6 D7 AD 77 02 AC 23 00 2A D8 D9 AF 77
02 DA AF 6B 06 77 02 77 03 5C 01 14 AC 23 00 19 DC DD B0 C9 78 02 DA AF 77 02 77 03 5C
01 14 32 02 20 5D 02 19 05 00 1A 62 00 1A 72
)
* AND VECTORP EQUAL ARRAY-ELEMENT-TYPE QUOTE UPGRADED-ARRAY-ELEMENT-TYPE EQL ARRAY-DIMENSION
#15=(0.)
)
SIMPLE-VECTOR SIMPLE-VECTOR-P C-TYPEP-VECTOR COMPLEX
#Y(#:TOP-LEVEL-FORM-230-2
#70Y(01 00 02 00 01 00 3A 03 02 C0 F9 3A 02 02 9B F8 D6 D7 AD 77 02 AC 23 00 27 D8 D9 AF 77
02 DA AF 77 02 77 03 5C 01 14 AC 23 00 18 D8 DB B0 77 02 DA AF 77 02 77 03 5C 01 14 32
02 20 5D 02 19 05 00 1A 63 00 1A 72
)
* AND COMPLEXP TYPEP REALPART QUOTE IMAGPART
)
INTEGER INTEGERP C-TYPEP-NUMBER MOD
#Y(#:TOP-LEVEL-FORM-230-3
#42Y(01 00 01 00 01 00 3C 02 A9 8B 09 15 D9 DA AC 77 02 DB DC AE 77 02 77 02 DD AE AE 77 03
5C 04 19 04 D5 D6 AB 2C 03 02 D8 00 4F
)
#7# TYPEP C-WARN C-TYPEP AND INTEGERP NOT MINUSP <
)
SIGNED-BYTE
#Y(#:TOP-LEVEL-FORM-230-4
#54Y(01 00 01 00 01 00 3A 02 02 C0 F8 A9 23 00 04 A9 8B 09 17 DA DB AC 77 02 AB 23 00 17 DC
DD AE 77 02 AD 77 03 5C 01 5D 02 19 04 D6 D7 AB 2C 03 03 D9 00 4F 00 1A 70
)
* #9# TYPEP C-WARN C-TYPEP AND INTEGERP < INTEGER-LENGTH
)
UNSIGNED-BYTE
#Y(#:TOP-LEVEL-FORM-230-5
#61Y(01 00 01 00 01 00 3A 02 02 C0 F8 A9 23 00 04 A9 8B 09 1E DA DB AC 77 02 DC DD AE 77 02
77 02 AC 23 00 17 DE DF AF 77 02 AE 77 03 5C 01 5D 03 19 04 D6 D7 AB 2C 03 03 D9 00 4F
00 1A 70
)
* #12# TYPEP C-WARN C-TYPEP AND INTEGERP NOT MINUSP <= INTEGER-LENGTH
)
REAL REALP RATIONAL RATIONALP FLOAT FLOATP SHORT-FLOAT SHORT-FLOAT-P SINGLE-FLOAT SINGLE-FLOAT-P
DOUBLE-FLOAT DOUBLE-FLOAT-P LONG-FLOAT LONG-FLOAT-P STRING STRINGP SIMPLE-STRING SIMPLE-STRING-P
BIT-VECTOR BIT-VECTOR-P SIMPLE-BIT-VECTOR SIMPLE-BIT-VECTOR-P
)
#Y(#:TOP-LEVEL-FORM-231 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-TYPEP
REMOVE-OLD-DEFINITIONS
#Y(C-TYPEP
#547Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 0E 00 57 57 74 A7 85 03 82 03 A7 6B
04 5F A8 8A 03 81 B3 99 1F 06 90 01 8A 03 80 CB A8 85 15 81 EA A8 6B 16 E9 37 01 6E 76
9A 22 81 DE EC ED AC 77 02 EE EF E5 AD 2E 16 14 77 02 5C 02 14 5C 02 14 77 03 2E 11 19
05 57 F6 14 AB 77 02 2E 06 19 05 57 F6 14 AB 5C 02 10 00 DD AC 6E 7E 6C 09 AE 77 01 5F
AD 5F 2C 05 0A 11 19 05 57 F6 37 01 6E 82 A8 A8 72 01 A8 77 01 A8 77 02 E1 99 76 AE 5C
02 10 00 E2 AF 6E 7E 6C 09 B1 77 01 5F AD 5F 2C 05 0A 11 19 08 E4 AB E5 AA AC 77 01 35
01 1A FF 9C E8 E5 AA 77 02 9D 1A FF 96 EC ED AC 77 02 EE EF E5 9E 1A FF 82 F3 E4 9F 57
74 2C 03 1F F0 00 4F 9C 57 74 9D 57 74 8B 03 6C A7 AF 77 02 2E 06 16 08 1A 80 E7 61 21
AE 91 06 03 22 76 03 23 5D 03 10 00 2D 24 1A 31 03 1B 4D 81 1F 90 04 24 1C 06 AB 6E 41
23 1D 4A 90 04 23 20 59 90 04 24 25 80 69 AB 6E 41 24 1D 80 62 61 25 AE E5 9F 57 74 77
02 5C 03 10 00 2D 26 11 16 07 1A 80 9E 61 27 E4 AF E5 A0 57 74 77 02 77 03 77 02 2E 06
16 07 1A 80 89 37 01 6E 82 61 2A A8 B0 77 02 77 01 90 07 5F 91 09 1A 10 90 00 E4 AE E5
AA 77 02 77 03 80 02 16 01 7F 00 98 20 6D 16 01 A7 30 A3 16 01 76 5C 03 F6 2E 11 16 07
1A 80 51 90 04 24 27 07 AB 6E 41 23 1D FF A7 90 04 23 28 FF B6 90 04 23 29 FF B0 90 04
67 0B 37 03 7C BA 03 1C 32 57 F9 37 01 6E 82 AB A8 9F 57 73 01 A8 77 01 A8 77 02 E1 99
76 B1 5C 02 10 00 61 2B 90 0B 6E 7E 6C 09 B4 77 01 5F AD 5F 2C 05 0A 11 16 0A 18 0E 19
01 4E 16 02 1A 80 47 A8 DA 37 03 7C BA 00 1B FE 77 A8 DC 37 03 7C BA 00 1B FE 77 A8 67
0B 37 03 7C BA 00 1B FE 86 A8 E3 37 01 7D 76 00 1B FE A6 A8 E7 37 01 8A 76 FE AA A8 E9
37 01 7D 76 00 1C 0B 14 85 15 07 A7 6B 16 9A 21 FE 9F 16 02 E4 2E 2C 19 03
)
*FORM* 3. TEST-LIST C-CONSTANTP C-CONSTANT-VALUE #.C-TYPEP-ALIST1 C-GLOBAL-FUNCTION-CALL-FORM
#.C-TYPEP-ALIST2 #:TYPEP SYMBOL-SUFFIX C-FUNCALL-INLINE C-TYPEP-ALIST3 LAMBDA #:TYPEP
DEFTYPE-EXPANDER TYPEP QUOTE C-FORM DEFSTRUCT-DESCRIPTION %STRUCTURE-TYPE-P CLOS::CLASS
CLOS::CLASS-P CLOS:CLASS-NAME CLOS::SUBCLASSP CLOS:CLASS-OF LOAD-TIME-VALUE CLOS:FIND-CLASS
C-TYPEP SATISFIES 2. "~S: argument to SATISFIES must be a symbol: ~S" C-WARN MEMBER CASE (T)
((T NIL)) C-CASE EQL C-EQL NOT AND OR LET #:TYPEP C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-232 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *FNODE-FIXUP-TABLE*)
*FNODE-FIXUP-TABLE*
)
#Y(#:TOP-LEVEL-FORM-233 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PASS2
REMOVE-OLD-DEFINITIONS
#Y(PASS2
#95Y(01 00 00 00 00 02 99 10 00 67 00 D6 A8 D7 7D 2A 00 D8 A8 31 2E 16 01 1B 04 00 11 19 02
2D 04 14 67 00 D6 A8 DA 31 2A 16 01 1C 04 A7 2E 06 F6 A7 2E 07 F6 67 00 A8 6B 08 2F 09
16 01 67 00 D6 A8 DF 7D 2A 00 5F 1A 0E 83 01 00 D6 A8 8B 2E 04 A7 27 FF B3 7F 01 A8 89
92 6E 00 16 02 1A FF BB
)
*FUNC* FNODE 2. ANODE COMPILE-TO-LAP 20. CONST-TO-LOADV INSERT-COMBINED-LAPS ASSEMBLE-LAP
CREATE-FUN-OBJ 17.
) )
#Y(#:TOP-LEVEL-FORM-234 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CODE-PARTS*)
*CODE-PARTS*
)
#Y(#:TOP-LEVEL-FORM-235 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CODE-POSITIONS*)
*CODE-POSITIONS*
)
#Y(#:TOP-LEVEL-FORM-236 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CONST-INDEX
REMOVE-OLD-DEFINITIONS
#Y(CONST-INDEX
#98Y(02 00 01 00 00 09 3A 01 03 0E 00 F7 D6 A9 D7 6E 2A D6 AA D8 6E 2A D6 AB D9 6E 2A 8E 02
29 AD 77 01 D6 AD D7 AA 31 2B 16 01 AC 77 01 D6 AD D8 AA 31 2B 16 01 1A 29 99 56 1B 25
8F 05 22 A8 AD 30 A8 1A 1C 7F 02 7F 01 90 02 AE 88 FE 69 81 00 9A 57 1B 70 A9 AE 77 01
30 AA A8 AD 77 01 30 AA 15 19 06
)
*FUNC* FNODE 17. 18. 16.
) )
#Y(#:TOP-LEVEL-FORM-237 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) KCONST-INDEX
REMOVE-OLD-DEFINITIONS
#Y(KCONST-INDEX
#54Y(02 00 01 00 00 09 3A 01 03 0E 00 F7 AA 8B 7F 1B D6 A9 D7 6E 2A D6 AA D8 6E 2A 8F 00 0C
90 00 9E 21 11 7F 00 81 01 8E 00 74 16 02 AA AA AA 2C 03 04 19 04 99 19 06
)
*FUNC* FNODE 9. 14. CONST-INDEX
) )
#Y(#:TOP-LEVEL-FORM-238 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) KCONST-INDEX-1
REMOVE-OLD-DEFINITIONS
#Y(KCONST-INDEX-1 #20Y(01 00 00 00 00 02 D5 A9 D6 6E 2A D5 AA D7 6E 2A 2F 03 19 02) CONST 1. 2.
KCONST-INDEX
) )
#Y(#:TOP-LEVEL-FORM-239 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-CONST-CODE
REMOVE-OLD-DEFINITIONS
#Y(MAKE-CONST-CODE
#28Y(02 00 00 00 00 03 8F 02 0D A9 02 21 0C D7 AA AA 6C 03 5C 02 19 03 C0 19 03 C1 19 03)
(NIL) (T) CONST KCONST-INDEX
) )
#Y(#:TOP-LEVEL-FORM-240 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BCONST-INDEX
REMOVE-OLD-DEFINITIONS
#Y(BCONST-INDEX
#36Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 D6 A9 D7 6E 2A D6 AA D8 6E 2A 1A 04 7F 00 81 01 90
00 9D 22 77 99 19 05
)
*FUNC* FNODE 5. 6.
) )
#Y(#:TOP-LEVEL-FORM-241 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GCONST-INDEX
REMOVE-OLD-DEFINITIONS
#Y(GCONST-INDEX
#36Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 D6 A9 D7 6E 2A D6 AA D8 6E 2A 1A 04 7F 00 81 01 90
00 9D 22 77 99 19 05
)
*FUNC* FNODE 7. 8.
) )
#Y(#:TOP-LEVEL-FORM-242 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FCONST-INDEX
REMOVE-OLD-DEFINITIONS
#Y(FCONST-INDEX
#45Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 A9 D6 AA D7 6E 2A 37 03 88 B3 10 A9 5F 6C 03 A9 A8
77 02 0E 04 58 0F 04 15 19 03 A9 5F 2F 03 19 03
)
*FUNC* FNODE 17. CONST-INDEX *FNODE-FIXUP-TABLE*
) )
#Y(#:TOP-LEVEL-FORM-243 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CODE-PART*) *CODE-PART*
)
#Y(#:TOP-LEVEL-FORM-244 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CODE-INDEX*)
*CODE-INDEX*
)
#Y(#:TOP-LEVEL-FORM-245 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *DEAD-CODE*) *DEAD-CODE*
)
#Y(#:TOP-LEVEL-FORM-246 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *LABEL-SUBST*)
*LABEL-SUBST*
)
#Y(#:TOP-LEVEL-FORM-247 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CURRENT-VALUE*)
*CURRENT-VALUE*
)
#Y(#:TOP-LEVEL-FORM-248 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CURRENT-VARS*)
*CURRENT-VARS*
)
#Y(#:TOP-LEVEL-FORM-249 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) LABEL-SUBST
REMOVE-OLD-DEFINITIONS
#Y(LABEL-SUBST
#66Y(02 00 00 00 00 03 A9 6D 4F 5F 1A 1A 67 00 AA 32 01 01 56 1A 0A 83 01 00 AA AC A9 8A 09
6E 9A 75 37 03 30 AE 7F 01 A8 89 92 6B 16 02 A8 AA 6D 4F AA 6D 4F 6F 02 21 30 53 A9 5F
30 53 A9 D6 31 7B 19 03
)
*CODE-PARTS* CODE-PART
) )
#Y(#:TOP-LEVEL-FORM-250 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FINISH-CODE-PART
REMOVE-OLD-DEFINITIONS
#Y(FINISH-CODE-PART
#33Y(00 00 00 00 00 01 67 00 2E 01 67 00 67 02 37 01 30 18 67 03 31 89 0F 03 14 67 04 37 01
30 18 19 01
)
*CODE-PART* SIMPLIFY *CODE-PARTS* *CODE-INDEX* *CODE-POSITIONS*
) )
#Y(#:TOP-LEVEL-FORM-251 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EMIT-JMP
REMOVE-OLD-DEFINITIONS
#Y(EMIT-JMP
#34Y(01 00 00 00 00 02 D5 A9 67 01 77 03 0E 02 58 0F 02 67 03 A7 AA 30 4F 76 AA A8 30 53 16
02 2D 04 19 02
)
JMP *CURRENT-VALUE* *CODE-PART* *CODE-INDEX* FINISH-CODE-PART
) )
#Y(#:TOP-LEVEL-FORM-252 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TRAVERSE-ANODE
REMOVE-OLD-DEFINITIONS
#Y(TRAVERSE-ANODE
#1534Y(01 00 00 00 00 02 A8 5F 1A 85 EB 00 0F 00 1A 24 67 01 A7 A9 2F 02 A7 A9 AA AA 67 03 37
03 6D AE 30 B8 0F 03 16 01 1A 0C 0E 00 1B 5F 67 01 8A 03 5F A7 2E 04 98 0F 01 67 05 6D
14 A8 DB A9 31 7A 16 01 1A 85 79 DE A8 DF 31 2A 1A 82 48 A7 8A 03 57 DE A8 8A 2E 6F E0
CC 1A 85 96 83 01 00 1F 6D 0E 00 1B 85 8F 67 03 91 01 37 03 30 B2 98 56 25 0E 85 7B 98
57 74 E4 A8 E5 6E 2A 67 08 5F 1A 1A 16 04 1A 85 6F D3 1A 29 83 01 00 E4 A8 8B 2E 08 E4
A8 E5 6E 2A 9B 21 68 7F 01 A8 89 92 6A 16 02 A7 E4 AA E6 6E 2A 6C 12 0E 01 58 0F 01 8F
00 55 D4 0F 07 99 1A 83 29 E4 99 57 74 2E 15 1A 0E E4 99 57 74 2E 16 1A 06 E4 99 57 74
2E 17 14 5C 02 1A 84 F3 D3 1A 15 E4 A8 2E 15 1A 80 A9 EE AA EF 6E 2A E4 A8 E5 6E 2A 8F
00 69 D4 0F 07 F0 A8 8A 2E 64 A7 E4 AA E6 6E 2A 2F 12 16 02 1A 80 8C F1 EE AB E5 7D 2A
03 14 5F 6C 1D 5C 02 1A 80 7C F5 AA AA AA 5C 04 16 03 1A 80 71 8E 02 72 61 21 A9 9A 1A
11 A9 A9 A9 2C 03 1F 41 03 8E 01 6C 61 22 AA A9 31 89 14 5C 03 16 03 1A 80 4F 61 25 A9
A9 5C 03 16 02 1A 80 44 98 57 74 99 57 57 74 9A 57 57 57 74 A9 67 08 ED 37 02 88 B3 3B
EE AA DF 8A 2A FF 7A 00 0F 07 EE AA E6 8A 2A FF 92 EE AA F3 8A 2A FF AF A7 EE AB 61 23
6E 2A 2F 24 41 02 8E 01 FF B9 61 26 99 14 5C 02 16 02 14 0E 01 58 0F 01 A9 5C 01 1A 80
90 16 03 1A 84 58 61 27 EE AB E5 7D 2A 03 14 5F 6C 1D 5C 02 1A 80 70 61 28 AA AA AA 5C
04 16 03 1A 80 64 8E 02 71 61 29 A9 9A 1A 11 A9 A9 A9 2C 03 1F 41 03 8E 01 6C 61 2A AA
A9 31 89 14 5C 03 16 03 1A 80 42 61 2B A9 A9 5C 03 16 02 1A 38 98 57 74 99 57 57 74 9A
57 57 57 74 A9 67 08 ED 37 02 88 B3 34 EE AA E6 8A 2A FF 9B EE AA F3 8A 2A FF BA A7 EE
AB 61 23 6E 2A 2F 24 41 02 8E 01 45 61 2C A8 5C 02 16 02 14 0E 01 58 0F 01 A9 0E 08 58
0F 08 16 03 1A 83 C6 16 03 1A 83 C1 F1 A8 5F 6C 1D 77 02 0E 01 58 0F 01 00 0F 07 A7 5C
01 1A 2E 98 57 74 A7 67 08 ED 37 02 89 B3 60 16 01 1A 83 9C 98 57 74 A7 67 08 ED 37 02
88 B3 18 61 27 A8 5F 6C 1D 77 02 0E 01 58 0F 01 A7 0E 08 58 0F 08 16 01 1A 83 78 16 01
1A 83 73 03 2D 1A 81 8B 98 57 74 99 57 57 74 9A 57 57 57 74 2C 03 2F 14 27 FD 6D 1A 83
58 98 57 74 5F 6B 30 9A 56 25 31 19 03 32 1A 06 03 32 1A 09 03 33 14 A9 9A 1A 05 03 34
14 A8 9B 14 5C 03 1A 01 00 14 0E 01 58 0F 01 67 35 9B 57 74 A8 A8 30 4F 76 A8 A8 30 53
16 03 67 35 A7 A9 30 4F 76 A9 A8 30 53 16 02 2D 36 67 05 6D 14 A8 DB A9 31 7A 16 01 98
0F 01 16 02 1A 82 FB 16 01 1A 82 F6 90 00 A7 23 37 75 A7 23 38 71 16 01 1A 82 54 16 01
1A 82 E2 16 01 1A 82 5E 37 05 9D 57 56 F9 6D 63 99 57 57 57 75 9A 57 57 74 5F 1A 14 83
01 00 74 91 01 AB 37 06 6E 59 A8 AD A9 30 65 16 02 7F 01 A8 89 92 68 16 02 61 3C A9 5F
6C 3D AA 9D 57 57 57 78 03 0E 01 58 0F 01 16 02 98 57 57 75 5F 1A 12 83 01 00 67 35 A7
A9 30 4F 76 A9 A8 30 53 16 02 7F 01 A8 89 92 6A 16 02 2D 36 1A 81 FD 98 57 74 99 57 57
74 1A 33 61 25 A9 A9 5C 03 16 02 1A 3C A7 9A 56 75 2F 24 41 02 8E 01 6B 61 26 A8 5C 02
16 02 1A 28 03 3F 1A 24 67 3E F0 A8 DF 31 2A 16 01 1B 71 03 40 1A 15 7F 01 99 56 1C 7A
99 56 20 4F 90 01 0E 3E 21 61 E0 61 41 2F 0D 14 0E 01 58 0F 01 74 61 42 89 FF 0D D3 0F
07 61 43 5F 2F 44 14 5C 01 1A 03 00 0F 07 0F 08 16 02 1A 82 05 61 45 99 57 74 6B 15 9A
57 57 74 5C 03 1A 81 C7 61 46 99 57 74 9A 57 57 74 6B 2E 5C 03 1A 81 A9 98 56 14 99 57
74 6B 2E 5C 02 1A 81 9C 03 47 1A 81 97 98 57 74 99 57 57 57 74 EE A9 F3 8B 2A 05 E0 61
48 2F 0D A7 EE AA 61 23 6E 2A 2F 24 41 02 8F 01 05 E0 61 49 2F 0D 90 04 A8 9E 57 57 57
57 78 02 0E 01 58 0F 01 90 04 24 4A 11 0E 01 74 AC 6D 95 A8 A8 30 4F 76 A8 A8 30 53 16
03 00 0F 07 0F 08 16 04 1A 81 7E 98 57 57 74 61 4B 9A 57 74 6B 2E A9 77 03 0E 01 58 0F
01 74 A7 A9 30 4F 76 A9 A8 30 53 16 03 1A 81 5C 61 4D 99 57 74 2E 16 1A 13 98 57 74 61
4C A8 31 2E 16 01 1B 6B 61 4D 99 57 74 2E 2E 14 5C 02 1A 80 84 A7 0E 01 58 0F 01 98 57
75 5F 1A 10 83 01 00 A9 A8 30 4F 76 A8 A8 30 53 16 01 7F 01 A8 89 92 6C 16 02 1A 81 15
61 4F 99 57 74 2E 17 1A 13 98 57 74 61 4E A8 31 2E 16 01 1B 6B 61 4F 99 57 74 2E 2E 14
9A 57 57 74 5C 03 1A 3A A7 0E 01 58 0F 01 D3 0F 07 61 43 00 1A 21 A7 0E 01 58 0F 01 D3
0F 07 1A 80 B9 A7 0E 01 58 0F 01 1A 80 CD A7 0E 01 58 0F 01 D4 0F 07 61 43 02 14 6C 44
5C 01 0F 08 1A 80 B7 98 14 0E 01 58 0F 01 2D 36 1A 32 0E 07 1C FD 4F 67 07 23 13 FD AB
90 00 A7 23 39 FD B3 A7 23 3A FD AE 16 01 90 00 A7 23 38 05 A7 24 3A FD A6 16 01 61 3B
0E 01 58 0F 01 98 57 74 2E 04 02 0F 00 1A 80 74 A7 0E 01 58 0F 01 98 57 1A 1E A7 0E 01
58 0F 01 98 57 74 A8 A8 30 4F 76 A8 A8 30 53 16 02 1A 80 53 A7 0E 01 58 0F 01 98 57 74
A8 A8 30 4F 76 A8 A8 30 53 16 02 1A 07 98 14 0E 01 58 0F 01 00 0F 07 0F 08 1A 2F 98 14
0E 01 58 0F 01 D4 0F 07 1A 06 A7 0E 01 58 0F 01 00 0F 08 1A 18 A7 0E 01 58 0F 01 61 50
67 08 37 05 31 4C 0F 08 1A 06 E0 03 51 14 2F 0D 7F 01 A8 89 92 FA 60 00 19 04
)
*DEAD-CODE* *CODE-PART* LABEL-SUBST *LABEL-SUBST* EMIT-JMP *CODE-PARTS* CODE-PART
*CURRENT-VALUE* *CURRENT-VARS* ANODE 3. TRAVERSE-ANODE "ITEM" COMPILER-ERROR
#S(HASH-TABLE EQ (UNBIND1 . 1387.) (UNWIND-PROTECT-CLEANUP . 1376.) (LIST* . 1364.)
(LIST . 1364.) (CONS . 1364.) (SVSET . 1350.) (SVREF . 1350.) (SYMBOL-FUNCTION . 1350.)
(CONSP . 1350.) (ATOM . 1350.) (CDR . 1350.) (CAR . 1350.) (EQ . 1350.) (NOT . 1350.)
(MVCALL . 1350.) (LIST-TO-MV . 1350.) (MV-TO-LIST . 1350.) (NV-TO-STACK . 1350.)
(MV-TO-STACK . 1350.) (STACK-TO-MV . 1350.) (UNLIST* . 1350.) (UNLIST . 1350.)
(PUSH-UNBOUND . 1350.) (APPLY . 1350.) (FUNCALL . 1350.) (CALLCKEY . 1350.)
(CALLC . 1350.) (CALLSR . 1350.) (CALLS2 . 1350.) (CALLS1 . 1350.)
(MAKE-VECTOR1&PUSH . 1350.) (POP . 1350.) (PUSH . 1350.) (PROGV . 1350.)
(PUSH-NIL . 1350.) (UNWIND-PROTECT-CLOSE . 1328.) (UNWIND-PROTECT-OPEN . 1305.)
(CATCH-OPEN . 1305.) (JSR . 1295.) (JMP . 1284.) (ERROR . 1228.) (THROW . 1228.)
(RET . 1228.) (T . 1206.) (STORE . 1197.) (UNWIND-PROTECT-NORMAL-EXIT . 1197.)
(CATCH-CLOSE . 1197.) (TAGBODY-CLOSE . 1197.) (BLOCK-CLOSE . 1197.) (MVCALLP . 1197.)
(VALUES1 . 1197.) (SKIPSP . 1197.) (SKIPI . 1197.) (SKIP . 1197.) (VALUES0 . 1185.)
(TAGBODY-CLOSE-NIL . 1171.) (NIL . 1171.) (GO . 1143.) (TAGBODY-OPEN . 1097.)
(RETURN-FROM . 1072.) (BLOCK-OPEN . 1029.) (BOUNDP . 944.) (JMPIFBOUNDP . 944.)
(APPLYP . 939.) (FUNCALLP . 939.) (CALL2 . 926.) (CALL1 . 926.) (CALL0 . 926.)
(CALL . 910.) (CALLP . 1411.) (COPY-CLOSURE . 894.) (VENV . 780.) (JMPHASH . 678.)
(JMPIFNOT1 . 1239.) (JMPIF1 . 1239.) (JMPIFNOT . 1239.) (JMPIF . 1239.) (UNWIND . 533.)
(BIND . 528.) (SETVALUE . 487.) (GETVALUE . 470.) (SET . 372.) (GET . 214.) (GCONST . 86.)
(BCONST . 78.) (FCONST . 70.) (CONST . 2.)
)
CONST 1. 2. MAKE-CONST-CODE FALSE TRUE FCONST-INDEX BCONST-INDEX GCONST-INDEX #.#'EQ VAR 4.
FNODE GETVALUE KCONST-INDEX 9. ZUGRIFF-IN-CLOSURE LOADIC LOADC LOADV 10. ZUGRIFF-IN-STACK
LOADI LOAD SETVALUE STOREIC STOREC STOREV STOREI STORE BIND KCONST-INDEX-1 EXPAND-UNWIND
MAKE-LABEL #S(HASH-TABLE EQ (JMPIFNOT1 . 16.) (JMPIF1 . 9.) (JMPIFNOT . 5.) (JMPIF . 1.))
JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE *CODE-INDEX* FINISH-CODE-PART JMPIF JMPIF1 JMPIFNOT
JMPIFNOT1 (VALUES1) JMPHASH CONST-INDEX *FUNC* (VENV) (NIL) VENV (NIL) :VALUE MAKE-CONST
COPY-CLOSURE CALL (PUSH) VAR-CLOSUREP VAR-STACKZ JMPIFBOUNDP BLOCK-OPEN BLOCK RETURN-FROM
TAGBODY GO #.#'SYMBOLP "LISTITEM"
) )
#Y(#:TOP-LEVEL-FORM-253-1 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) NOTE-REFERENCES
REMOVE-OLD-DEFINITIONS
#Y(NOTE-REFERENCES
#122Y(01 00 01 00 00 08 3C 01 9A 56 25 00 80 69 9A 1A 10 9A 57 74 A9 A8 30 4F 76 A8 A8 30 53
16 02 9A 57 57 74 9A 1A 29 9A 57 57 75 5F A8 88 92 80 44 83 01 00 AA A8 30 4F 76 A8 A8
30 53 16 01 7F 01 1A 69 9A 1A 07 9A 57 1A 03 9A 57 57 57 74 9B 14 A8 30 4F 76 A8 A8 30
53 19 05 9A 57 75 5F 1A 10 83 01 00 AB A8 30 4F 76 A8 A8 30 53 16 01 7F 01 A8 89 92 6C
00 19 05 00 19 03
)
#S(HASH-TABLE EQ (TAGBODY-OPEN . 78.) (JMPTAIL . 61.) (JSR . 57.) (BLOCK-OPEN . 57.)
(UNWIND-PROTECT-CLOSE . 54.) (UNWIND-PROTECT-OPEN . 54.) (CATCH-OPEN . 54.)
(JMPIFBOUNDP . 54.) (JMPHASH . 26.) (JMPCASE1-FALSE . 5.) (JMPCASE1-TRUE . 5.)
(JMPCASE . 5.) (JMP . 2.)
) ) )
#Y(#:TOP-LEVEL-FORM-253-2 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REMOVE-REFERENCES
REMOVE-OLD-DEFINITIONS
#Y(REMOVE-REFERENCES
#161Y(01 00 01 00 00 08 3C 01 5F 9B 56 25 00 80 8F 9B 1A 19 9B 57 74 A7 AB A9 6D 4F 37 07 6E
4B 30 53 A7 A9 37 03 7C B7 01 16 01 9B 57 57 74 A7 9C 1A 35 9B 57 57 75 5F 1A 17 83 01
00 14 AC A9 6D 4F 37 07 6E 4B 30 53 A7 AA 37 03 7C B7 02 7F 01 A8 89 92 65 16 02 1A 80
46 9B 1A 07 9B 57 1A 03 9B 57 57 57 74 A7 9D 14 A9 6D 4F 37 07 6E 4B 30 53 A7 A9 37 03
7C B7 01 16 01 1A 23 9B 57 75 5F 1A 17 83 01 00 14 AD A9 6D 4F 37 07 6E 4B 30 53 A7 AA
37 03 7C B7 02 7F 01 A8 89 92 65 16 02 15 19 03
)
#S(HASH-TABLE EQ (TAGBODY-OPEN . 110.) (JMPTAIL . 82.) (JSR . 78.) (BLOCK-OPEN . 78.)
(UNWIND-PROTECT-CLOSE . 75.) (UNWIND-PROTECT-OPEN . 75.) (CATCH-OPEN . 75.)
(JMPIFBOUNDP . 75.) (JMPHASH . 36.) (JMPCASE1-FALSE . 5.) (JMPCASE1-TRUE . 5.)
(JMPCASE . 5.) (JMP . 2.)
) ) )
#Y(#:TOP-LEVEL-FORM-254
#51Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 DA 5F 1A 0A
83 01 00 14 AA 60 30 65 7F 01 A8 89 92 72 16 02 31 75 C0 19 01
)
ONE-VALUE-OPS "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT ONE-VALUE-OPS
(LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
(DOLIST
(OP
'#1=(NIL T CONST LOAD LOADI LOADC LOADV LOADIC STORE STOREI STOREC STOREV STOREIC GETVALUE
SETVALUE POP VENV COPY-CLOSURE BOUNDP VALUES1 MV-TO-LIST TAGBODY-CLOSE-NIL NOT EQ CAR
CDR CONS ATOM CONSP SYMBOL-FUNCTION SVREF SVSET LIST LIST*
) )
(SETF (GETHASH OP HT) T)
)
HT
))
WARN #.#'EQ #1#
)
#Y(#:TOP-LEVEL-FORM-255
#91Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 DA 5F 1A 0A
83 01 00 14 AA 5F 30 65 7F 01 A8 89 92 72 16 02 DB 5F 1A 0A 83 01 00 14 AA DC 30 65 7F 01
A8 89 92 72 16 02 DD 5F 1A 0A 83 01 00 14 AA DE 30 65 7F 01 A8 89 92 72 16 02 31 75 C0 19
01
)
FOR-VALUE-TABLE "~S redefines the constant ~S. Its old value was ~S."
(DEFCONSTANT FOR-VALUE-TABLE
(LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
(DOLIST
(OP
'#1=(NIL PUSH-NIL T CONST LOAD LOADI LOADC LOADV LOADIC GETVALUE POP JSR JMPTAIL VENV
COPY-CLOSURE CALL CALL0 CALLS1 CALLS2 CALLSR FUNCALL PUSH-UNBOUND JMPIFBOUNDP BOUNDP
VALUES0 STACK-TO-MV MVCALL BLOCK-OPEN TAGBODY-OPEN TAGBODY-CLOSE-NIL GO
UNWIND-PROTECT-OPEN UNWIND-PROTECT-CLOSE LIST ERROR
) )
(SETF (GETHASH OP HT) 'NIL)
)
(DOLIST
(OP
'#2=(STORE STOREI STOREC STOREV STOREIC SETVALUE BIND PROGV PUSH MAKE-VECTOR1&PUSH CALL1
CALL2 CALLC CALLCKEY APPLY UNLIST UNLIST* VALUES1 LIST-TO-MV MVCALLP CATCH-OPEN NOT EQ
CAR CDR CONS ATOM CONSP SYMBOL-FUNCTION SVREF SVSET LIST*
) )
(SETF (GETHASH OP HT) 'ONE)
)
(DOLIST
(OP '#3=(MV-TO-STACK NV-TO-STACK MV-TO-LIST RETURN-FROM THROW UNWIND-PROTECT-NORMAL-EXIT))
(SETF (GETHASH OP HT) 'ALL)
)
HT
))
WARN #.#'EQ #1# #2# ONE #3# ALL
)
#Y(#:TOP-LEVEL-FORM-256 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SIMPLIFY
REMOVE-OLD-DEFINITIONS
#Y(SIMPLIFY
#1030Y(01 00 00 00 00 02 90 01 90 00 A7 23 00 80 46 A7 D7 37 03 88 B3 80 4B A7 23 07 80 6B A7
DD 37 03 88 B3 80 67 A7 DE 37 03 88 B3 80 63 DF E0 2F 0C 16 01 F6 5F 5F AB 91 00 5F AC
9A 1F 83 4A 9A 57 F7 8F 00 80 4E A7 23 06 80 60 99 1F 83 37 9A 56 56 25 14 83 30 99 57
74 D6 37 01 31 76 1A 51 C4 1A 4E 90 01 23 03 0B 99 57 74 D6 37 01 6E 76 23 04 6D 90 01
23 05 0C 99 57 57 74 D6 37 01 6E 76 23 04 5C C6 1A FF A9 C6 1A FF A5 00 1A FF A1 C4 1A
FF 9D 9A 56 56 25 0D FF AB A9 E3 9C 56 57 74 5C 02 1A 82 B1 A9 CF 1A 82 AC 9A 56 56 25
10 FF 99 A9 D1 1A 82 A0 A9 D2 1A 82 9B 9A 56 57 74 AA E8 30 A8 AA E3 93 02 77 02 9C 58
1A 81 9B 99 56 74 67 15 5F 89 64 82 AD AA 9A F9 1A 81 26 99 56 56 25 16 82 A0 99 57 1F
82 9B 99 57 74 EC 89 FF 82 93 AA 9A 57 F9 1A 81 0B A9 03 18 1A 80 FF A9 03 19 1A 80 F9
9B 56 57 74 AC E3 A9 9D 1A 82 24 9B 56 57 74 9C 56 57 57 74 AD EF AA AA AE 6F 02 33 77
03 30 A8 AD 91 06 30 AA 7A 08 16 04 1A FF 09 AB 03 1E 1A 81 B9 9B 56 57 74 24 1C 80 4A
A8 23 1D 6E AA F4 30 A8 AB E3 93 03 5C 02 1A 80 DF AC 9C 57 FB 1A 81 B8 A8 23 1D 75 AB
E3 AA 31 8A 1A 81 8A AC 03 21 1A 81 35 AC CE 1A 81 0D AB 61 23 30 A8 1A 81 CE 9B 56 57
74 A9 A8 8C 01 2E 6E 16 03 1A 82 00 A7 23 22 6D 16 02 1A 81 F7 99 56 56 25 24 81 F0 99
56 57 74 9B 56 57 74 9C 56 57 57 74 AC EF F2 AC AC 32 03 33 1A 14 99 56 57 74 9B 56 57
74 9C 56 57 57 74 AC EF AB AB 32 02 33 14 AA 5C 03 1A 81 74 9A 56 57 74 9C 56 57 74 AC
03 25 1A 81 5C 99 56 74 A7 23 25 6B 16 01 1A 81 A4 A8 61 27 30 A8 A9 03 28 1A 81 6A 90
01 61 26 88 FF 6E 90 01 61 29 89 FF 81 8A A9 03 2A 14 30 A8 A9 9A 57 14 30 AA 1A 81 4F
AB 03 2D 1A 80 E0 99 56 74 A7 23 2B 80 4D A7 24 0E 2A 9A 56 57 74 A7 23 1D 11 AA E3 93
02 77 02 30 A8 AB 03 2E 14 30 A8 1A 80 DD 9B 57 1F 51 9B 57 74 61 2C 89 FF 49 16 02 1A
81 3F 16 01 1A 81 3A A9 03 2F 1A 81 05 99 56 74 67 15 5F 88 64 71 99 56 74 A7 23 30 04
A7 24 31 0E AB 9B 57 FA 14 30 AA 7A 05 16 01 1A FD C7 16 01 1A 81 0D AC 03 32 14 AB 9B
1A 21 9A 56 57 74 9A 56 74 A7 24 31 80 55 9B 56 57 74 A9 A8 8C 01 2E 62 A9 A8 8D 01 2D
3E AC CE 14 A9 9D 14 32 01 34 1A 80 90 9A 56 57 74 9A 56 74 A7 23 0E FE 51 A7 23 1A FE
57 A7 23 1B FE 79 A7 23 20 FE 94 A7 24 21 FE BD 9B 56 57 74 A7 AA 8C 01 2E FE 90 A7 AA
8C 01 2D FE 8F AD 9D 57 FC 1A 80 60 A7 61 33 37 03 89 B3 0F AB 61 32 9B 14 5C 02 14 30
A8 AB 9C 57 1A 17 9B 56 74 67 15 5F 89 64 18 AB 61 34 30 A8 AB 61 32 93 03 77 02 9D 58
14 30 AA 7A 06 16 02 1A FD 21 16 02 1A 80 67 99 56 74 A7 24 35 80 5D 9A 56 57 74 9C 56
57 74 AC 03 35 14 AA 9B 14 32 02 33 14 5C 02 14 30 A8 AC 9D 57 14 30 AA 7A 07 16 03 1A
FC EF 9A 56 75 61 36 89 FF 32 A9 03 37 14 30 A8 7A 04 1A FC DC 9A 56 74 67 38 A9 7C 64
00 9A F9 99 F8 1A FC CC AA D6 AA 31 7A 9B FC 16 01 1A 25 16 01 1A FC B6 03 1C 1A 80 5E
16 01 9A 20 56 8F 02 13 14 D6 37 01 6E 76 A8 99 21 07 A7 23 04 55 8F 01 52 16 01 16 04
8E 00 56 16 01 5F 9C 56 74 24 39 80 54 9C 57 F6 1F 80 4E 98 56 74 23 3A 14 9C 57 56 74
24 0E 80 40 9C 57 57 F6 1F 3A 98 56 74 24 3A 34 98 56 57 74 99 56 57 57 74 A9 9F 57 21
FF A2 9E 57 56 57 56 14 AE 61 3B AB AC AB 6F 02 33 AC 77 04 30 A8 16 03 90 00 2E 3C 90
04 2E 3D AB 91 01 30 AA 79 02 16 01 15 19 03
)
JMP FOR-VALUE (JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE) JMPCASE1-TRUE ALL JMPCASE1-FALSE ONE
JMPHASH (ERROR GO JMPTAIL) (RETURN-FROM RET THROW) SIMPLIFY "AT-END" COMPILER-ERROR
#S(HASH-TABLE EQ (SVREF . 13.) (CONS . 13.) (EQ . 13.) (POP . 13.) (STACK-TO-MV . 2.)
(LIST* . 2.) (LIST . 2.) (CONSP . 64.) (ATOM . 64.) (SYMBOL-FUNCTION . 64.) (CDR . 64.)
(CAR . 64.) (NOT . 64.) (LIST-TO-MV . 64.) (MV-TO-LIST . 64.) (VALUES1 . 64.)
(VALUES0 . 64.) (BOUNDP . 64.) (VENV . 64.) (GETVALUE . 64.) (LOADIC . 64.) (LOADV . 64.)
(LOADC . 64.) (LOADI . 64.) (LOAD . 64.) (CONST . 64.) (T . 64.) (NIL . 64.)
)
SKIP (SKIP 1.)
#S(HASH-TABLE EQ (STACK-TO-MV . 12.) (LIST-TO-MV . 7.) (VALUES0 . 2.) (VALUES1 . 41.)) (NIL)
(CAR) (POP)
#S(HASH-TABLE EQ (LIST* . 760.) (PUSH-UNBOUND . 715.) (NV-TO-STACK . 557.)
(MV-TO-STACK . 510.) (PUSH . 445.) (POP . 409.) (SKIPSP . 386.) (SKIPI . 315.)
(SKIP . 597.) (NOT . 139.) (VALUES1 . 123.)
)
ONE-VALUE-OPS #S(HASH-TABLE EQ (CONSP . 28.) (ATOM . 22.) (NOT . 2.)) (NOT) (CONSP) (ATOM)
SKIPI LOAD 0. 1. (POP) (POP) PUSH NV-TO-STACK STORE (VALUES1)
#S(HASH-TABLE EQ (SKIPSP . 25.) (SKIPI . 2.) (SKIP . 110.)) SKIPSP (STORE 0.) (VALUES1)
(SKIP 1.) (PUSH) (VALUES1) POP (LOAD 0.) (STORE 0.) (STORE 0.) (PUSH) VALUES0 STACK-TO-MV
PUSH-NIL (VALUES0 NIL) (PUSH) PUSH-UNBOUND (1.) (CONS) FOR-VALUE-TABLE RET JSR JMPTAIL
REMOVE-REFERENCES NOTE-REFERENCES
) )
#Y(#:TOP-LEVEL-FORM-257 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-PART
REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-PART
#40Y(01 00 00 00 00 02 A8 6B 00 8E 00 03 00 19 03 14 6D 4F 5F 1A 0C 83 01 00 14 8B 09 03 A7
2E 01 7F 01 A8 89 92 70 00 19 05
)
SIMPLIFY OPTIMIZE-VALUE
) )
#Y(#:TOP-LEVEL-FORM-258 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-LABEL
REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-LABEL
#204Y(01 00 03 00 00 11 3A 03 07 AB D5 37 01 7D 76 03 3A 02 07 67 01 AB 7E 01 01 02 3A 01 04
A9 7C 9C 01 AB 9A 57 22 80 90 8E 04 80 93 00 19 05 5F 1A 0B A7 90 05 7F 06 AE 6C 04 7C
A2 00 9C 20 72 67 01 A7 AE 5F 32 01 02 16 01 A7 5F 1A 1E 83 01 00 14 D5 37 01 6E 76 67
01 A8 6F 01 01 8F 00 08 A9 A9 A9 37 01 27 FF 9F 16 02 7F 01 A8 89 92 5E 00 19 09 AA 67
01 A9 32 01 01 75 30 AA 67 01 A7 A9 5F 32 01 02 16 01 AA 30 9C 75 8F 00 05 14 D5 AF 31
7A 16 01 AD 5F 30 53 AB 2E 06 19 07 90 00 A7 8B 09 11 67 01 A8 32 01 01 56 74 24 05 06
AC A8 89 FE FF BE 00 19 07 D7 2E 03 8F 04 FF 6D 14 6D 4F 8F 00 FF 69 98 57 1C 54 00 19
06
)
CODE-PART *CODE-PARTS* OPTIMIZE-LABEL COMPILER-ERROR REMOVE-REFERENCES JMP OPTIMIZE-PART
) )
#Y(#:TOP-LEVEL-FORM-259 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-SHORT
REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-SHORT
#564Y(01 00 01 00 00 08 3A 01 07 67 00 AA 7E 01 01 01 A8 6D 9C 91 00 8F 00 26 AA 9A 22 12 90
03 90 00 A7 23 01 1D A7 D9 37 03 88 B3 81 63 16 02 AA 9A 21 05 91 03 9A 22 07 9B 56 74
24 0C 81 66 00 19 05 99 57 74 AA 99 21 1C AA A8 2F 02 67 00 A7 B0 5F 32 01 02 16 01 A7
AF A9 6D 4F 37 07 6E 4B 30 53 A7 2E 03 16 01 00 19 07 5F AC 6D 4F 5F 1A 80 E4 A9 B1 30
A8 AA AF 30 4F 76 AF A8 30 53 16 01 AA AE 30 4F 76 AE A8 30 53 16 01 AA 80 05 16 03 1A
80 C0 79 00 8F 01 80 7A 1A 80 67 C6 1A 80 7D C7 1A 80 79 99 57 74 9A 57 57 74 90 03 C6
55 14 90 04 C7 55 14 B5 9C 22 17 A3 F9 AE B3 30 4F 76 B3 A8 30 53 16 01 AE 80 09 90 0D
24 06 02 7A 01 B5 9B 22 17 A2 F8 AE B2 30 4F 76 B2 A8 30 53 16 01 AE 80 09 90 0D 24 07
02 7A 00 AA DD 37 01 6E 76 23 09 02 79 01 A9 DD 37 01 6E 76 24 09 FF 93 8F 01 10 8F 00
0D DF 9F 57 76 AE A8 30 AA 16 01 79 01 F6 AD 8E 02 FF 84 8E 01 FF 84 CB 14 AC AC 77 03
30 A8 16 07 1A 2B E2 2E 0E 16 03 1A 24 83 01 00 14 8B 09 1D 67 00 A8 6F 01 01 90 00 90
00 A7 23 01 FF 2C A7 DA 37 03 88 B3 FF 57 A7 23 0C 57 16 03 7F 01 A8 89 92 56 16 02 AC
E4 AE 6D 4F 37 05 6E 4C 30 53 AC 2E 03 A7 5F 1A 19 83 01 00 67 00 A8 6F 01 01 2E 10 A7
2E 11 A7 67 00 A9 6F 01 01 2F 12 7F 01 A8 89 92 63 16 07 1A FE 9F 99 57 74 9A 57 57 74
AB 9A 21 05 AB 99 22 FE CA 16 04 1A FE 8A 5F A9 5F 30 AA A8 6D 4F 5F 1A 80 73 E8 AF 6F
00 17 A7 5F 1A 09 83 01 00 14 AC 2F 14 7F 01 A8 89 92 73 16 02 67 00 A8 91 03 6F 02 21
A8 AC A9 32 01 02 16 03 AB A9 AD 6D 4F 37 07 6E 4B 30 53 A8 80 03 16 01 1A 37 14 5F 1A
0D 83 01 00 67 00 A8 6F 01 01 2E 15 7F 01 A8 89 92 6F 16 02 A8 2E 03 19 06 83 01 00 14
8B 09 14 A7 AF 88 FE 0F 67 00 A8 6F 01 01 98 56 74 23 01 FF 91 16 01 7F 01 A8 89 92 5F
16 02 A9 A9 30 AA 8E 00 FF B9 00 19 06
)
*CODE-PARTS* JMP LABEL-SUBST OPTIMIZE-LABEL (JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE)
(JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE) JMPCASE1-TRUE JMPCASE1-FALSE FOR-VALUE ALL (VALUES1)
JMPCASE JMPHASH OPTIMIZE-SHORT COMPILER-ERROR #.#'INTEGERP SIMPLIFY OPTIMIZE-VALUE
OPTIMIZE-JMPCASE #.#'COPY-LIST NOTE-REFERENCES OPTIMIZE-PART
) )
#Y(#:TOP-LEVEL-FORM-260 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-BOOLEAN-VALUE
REMOVE-OLD-DEFINITIONS
#Y(GET-BOOLEAN-VALUE
#191Y(01 00 00 00 00 02 5F 46 00 80 AD 1A 16 9D 56 56 25 01 80 A2 C2 47 1A 80 9F C3 47 1A 80
9A 9B 54 F9 7F 05 9D 20 67 8F 05 80 8C 00 2A 01 00 0B 00 00 A7 AB 69 04 02 AE 6D 4F 5F
1A 80 72 00 16 06 47 1A 80 74 99 57 57 56 1C 73 99 57 57 56 1A 2C 83 01 00 14 8B 09 37
67 05 A8 32 01 01 74 90 00 A7 23 06 60 A7 DC 37 03 89 B3 18 B2 9A 57 56 22 03 D8 9D 33
B2 9A 57 57 56 22 0F C2 14 9D 33 16 02 1A 2A DD 2E 09 16 02 1A 23 16 02 1A 1F 98 56 25
0A 17 00 16 04 47 1A 1F C2 19 04 C3 19 04 A7 23 03 76 A7 23 02 75 00 19 04 DD 2E 09 7F
01 A8 89 92 FF 9C 16 04 00 47 14 8E 01 63 15 19 03
)
VALUE
#S(HASH-TABLE EQ (UNWIND-PROTECT-CLEANUP . 15.) (CATCH-CLOSE . 15.) (TAGBODY-CLOSE . 15.)
(BLOCK-CLOSE . 15.) (VALUES1 . 15.) (SETVALUE . 15.) (STOREIC . 15.) (STOREC . 15.)
(STOREV . 15.) (STOREI . 15.) (STORE . 15.) (SKIPSP . 15.) (SKIPI . 15.) (SKIP . 15.)
(UNBIND1 . 15.) (NOT . 12.) (LIST* . 7.) (LIST . 7.) (CONS . 7.) (CONST . 7.) (T . 7.)
(TAGBODY-CLOSE-NIL . 2.) (VALUES0 . 2.) (NIL . 2.)
)
FALSE TRUE
#Y(GET-BOOLEAN-VALUE-NEU
#29Y(01 00 00 00 00 02 07 00 01 1C 09 A8 07 00 01 22 09 00 19 02 99 0C 00 01 19 02 00 48
01
)
NIL NIL
)
*CODE-PARTS* JMP (JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE) GET-BOOLEAN-VALUE COMPILER-ERROR
#S(HASH-TABLE EQ (CATCH-OPEN . 1.) (BLOCK-OPEN . 1.) (JMPIFBOUNDP . 1.))
) )
#Y(#:TOP-LEVEL-FORM-261 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-JMPCASE
REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-JMPCASE
#145Y(02 00 00 00 00 03 99 56 74 23 00 80 64 00 19 03 AA D6 AA 91 06 6B 02 77 03 30 A8 A8 AC
AA 6D 4F 37 06 D8 6E 4B 30 53 AA 2E 04 A8 DA 37 01 6E 76 2E 06 19 05 DD AB 91 05 1A 21
98 56 56 25 09 1E A7 91 01 99 F9 98 F8 16 02 1A 10 AD 2E 04 AE 2E 06 19 08 A8 7F 01 14
30 AA 81 02 98 20 5C A9 8B 87 08 AD D5 AC AE 77 03 30 A8 A9 8A 85 5D 00 19 08 99 56 57
74 9A 56 57 57 74 A8 99 21 FF 91 A8 DC 37 01 8A 76 08 A7 DC 37 01 8B 76 FF A6 00 19 05
)
JMPCASE JMP GET-BOOLEAN-VALUE 1. OPTIMIZE-PART CODE-PART OPTIMIZE-SHORT FOR-VALUE 0.
#S(HASH-TABLE EQ (NOT . 20.) (UNWIND-PROTECT-CLEANUP . 1.) (CATCH-CLOSE . 1.)
(TAGBODY-CLOSE . 1.) (BLOCK-CLOSE . 1.) (VALUES1 . 1.) (SKIPSP . 1.) (SKIPI . 1.)
(SKIP . 1.) (UNBIND1 . 1.)
) ) )
#Y(#:TOP-LEVEL-FORM-262 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-VALUE
REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-VALUE
#240Y(01 00 01 00 00 08 3A 01 07 67 00 AA 7E 01 01 01 90 01 90 00 A7 D6 37 03 89 B3 80 BA 99
57 74 9A 57 57 74 90 03 24 02 09 A8 D8 37 01 6E 76 24 04 0E 90 03 24 05 15 A7 D8 37 01
6E 76 23 04 0C AC DB 9D 57 76 7C A8 03 AD AD 2F 07 91 05 6B 08 A7 23 09 36 A7 24 11 80
5C A9 AF AB 6D 4F 37 07 6E 4B 30 53 AD DF AA D2 78 02 30 A8 90 04 24 05 0D E8 9F 57 76
AE A8 30 AA 16 01 AD 2E 0D AD 2E 0E 9A 14 2E 0F AE 2E 10 19 08 A8 AF AA 6D 4F 37 07 6E
4B 30 53 AD DF AB CB 78 02 30 A8 90 04 24 02 0D E1 9F 57 76 AE A8 30 AA 16 01 AD 2E 0D
AD 2E 0E 99 1A 4D 00 19 08 AC DF AA AA 77 03 30 A8 A8 E9 37 01 6E 76 37 01 28 02 09 FF
3A 91 04 6B 08 8E 00 64 00 19 07 A7 24 0A 13 99 57 74 A7 D8 37 01 8B 76 06 9A 57 57 56
1C 62 00 19 06 00 19 05
)
*CODE-PARTS* (JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE) JMPCASE1-TRUE FOR-VALUE ALL
JMPCASE1-FALSE JMPCASE OPTIMIZE-JMPCASE GET-BOOLEAN-VALUE TRUE JMP (TRUE) (VALUES1) SIMPLIFY
OPTIMIZE-PART OPTIMIZE-LABEL OPTIMIZE-SHORT FALSE (FALSE) (VALUES1) CODE-PART
) )
#Y(#:TOP-LEVEL-FORM-263 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COALESCE
REMOVE-OLD-DEFINITIONS
#Y(COALESCE
#125Y(00 00 01 00 00 07 3A 01 1B 5F D5 67 01 6D 14 1A 05 A8 80 02 81 01 A8 A8 8D 01 30 75 16
02 A7 31 43 16 01 F7 00 2A 01 37 05 C2 F9 AE 7D 41 02 6D 63 AA 5F 1A 32 83 01 00 67 01
A8 6F 01 01 98 1F 22 98 57 1F 1E 98 57 57 1F 19 90 00 99 57 74 9A 57 57 56 78 02 A9 A8
AD 5F 30 64 76 A8 AD A9 30 65 16 02 16 01 7F 01 A8 89 92 4A 16 02 00 0B 01 00 A8 69 03
01 A8 30 67 06 01 00 19 04
)
0. *CODE-PARTS* #.#'EQUAL
#Y(COALESCE-1
#258Y(02 00 00 00 00 03 99 57 1B 03 00 19 03 5F A9 1A 0E 90 00 67 01 A8 6F 01 01 80 02 16
01 7F 00 98 20 6F 16 01 A7 7C A3 00 5F 67 01 6D 14 D7 5F AD 1A 0E 90 00 67 03 A8 6F
01 01 80 02 16 01 7F 00 98 20 6F 16 01 A7 7C A3 00 37 04 6E 45 1A 3C AC AF 1A 16 16
03 1A 17 90 01 99 1F 77 90 01 90 01 A8 2F 06 16 02 7F 01 7F 00 99 20 6B 16 02 AC 1A
08 A7 99 56 75 30 A8 7F 00 98 20 75 16 01 64 01 00 80 04 64 01 00 AB 2F 07 16 02 D9
AB 8D 00 26 17 29 2A 01 90 04 98 56 0B 01 00 A8 69 05 01 91 06 8C 00 26 FF A9 16 02
DD 6B 09 DF A8 CB 78 02 AC AF 1A 1C 16 03 1A 1D 90 01 99 1F 77 90 01 67 01 AC 9B 76
A8 AA A9 32 01 02 16 04 7F 01 7F 00 99 20 65 16 02 A8 AF 30 53 A8 E1 AC 31 7A AB A9
6D A2 67 01 37 01 30 18 A9 67 03 37 01 30 18 16 02 67 01 A9 6F 01 01 2E 0D AC 2E 0E
02 0C 00 01 19 07
)
NIL *CODE-PARTS* #.#'MAX *CODE-POSITIONS* #.#'CONSP
#Y(COALESCE-1-1 #15Y(01 00 00 00 00 02 90 01 65 00 01 30 FF 19 02) NIL) REMOVE-REFERENCES
NOTE-REFERENCES ALL MAKE-LABEL JMP (NIL) CODE-PART OPTIMIZE-PART COALESCE
) ) )
#Y(#:TOP-LEVEL-FORM-264 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-ALL
REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-ALL
#636Y(00 00 00 00 00 01 D5 1A 80 59 67 01 A8 6F 01 01 8F 00 1F 14 6D 9C 91 00 8F 00 0E AA A8
D7 37 01 6E 76 88 FE 04 D8 D7 2F 04 A7 AB AB AB 2C 04 05 16 02 16 01 67 01 A8 6F 01 01
8F 00 04 A8 A8 2F 06 16 01 67 01 A8 6F 01 01 8F 00 04 A8 A8 2F 07 16 01 67 01 A8 6F 01
01 8F 00 04 A8 A8 2F 08 16 01 81 00 A7 67 01 6D 14 89 FE FF 9E 16 01 2D 09 1B FF 93 D5
67 01 6D 14 1A 81 7E A0 FF 16 08 1A 81 77 A9 AF 9E 33 1C 80 99 9A FD 16 02 1A 80 94 9A
FC 16 02 1A 80 8D B0 9A 57 1A 80 6E 16 02 8F 03 81 02 AD AD 67 01 AD 32 01 01 57 76 30
AA 67 01 A7 AC 5F 32 01 02 16 01 9E FE 16 08 00 2A 01 A8 6D 9C 91 00 A7 6D 4F 67 0A AD
32 01 01 0B 03 00 01 03 8F 04 FF A4 AD 69 0B 01 AB 5F A8 88 92 FF BB 83 01 00 14 8B 09
3B A7 B3 88 FE 36 67 01 A8 32 01 01 74 90 00 A7 23 0C FF 86 A7 23 0D 1B A7 23 0E FF 92
A7 24 0F 19 B0 9A 57 56 22 13 A9 AD 9E 33 1C 0D 9A FB 16 02 1A 09 A9 AE 9E 33 1B FF 6E
16 02 7F 01 1A FF B4 E5 99 57 1A 10 67 01 A9 6F 01 01 90 00 AE 99 57 56 21 6D E6 99 57
74 77 02 B0 B0 A9 9D 57 78 02 30 AA 67 01 A7 AD 5F 32 01 02 16 01 A1 09 0B 16 0B 1A FF
60 E8 9A 57 1A 23 67 01 AA 6F 01 01 90 00 98 57 74 E7 37 01 8A 76 09 98 57 57 74 E7 37
01 31 76 14 AF 9A 57 56 21 5A E9 9A 57 74 A9 77 03 B1 B1 A9 9E 57 78 02 30 AA 67 01 A7
AF 5F 32 01 02 16 01 A2 09 0C 16 0C 1A FF 18 8E 01 FF 85 8E 02 FF B5 16 09 1A 80 47 A9
E1 9B 57 74 77 02 30 A8 1A 80 9B E1 9A 57 74 77 02 E8 9B 57 57 74 9C 57 74 E7 37 01 8A
76 09 9C 57 57 74 E7 37 01 31 76 14 5C 03 1A 80 72 E1 9A 57 57 74 77 02 E6 9B 1A 80 62
67 01 A8 6F 01 01 8E 00 FE C6 16 01 82 00 14 24 00 6E 16 01 67 0A A7 A9 D5 32 01 02 16
01 EA EB 67 01 67 0A 6F 01 24 EC A8 37 05 7D 4D 00 14 ED EE 37 02 7D 61 00 5F A8 5F A8
88 92 80 4C 83 01 00 74 90 00 90 00 A7 23 0C FF 7A A7 23 0D FF 81 A7 23 0E FF 9F A7 24
0F 13 E1 9A 57 74 77 02 E5 9B 57 57 74 5C 02 14 9C 57 5D 02 F8 16 02 A7 6D 9C 98 57 1C
07 A7 91 01 77 01 30 AA 16 01 A7 AB 7C A2 03 16 01 7F 01 1A FF AF 16 02 15 19 03
)
0. *CODE-PARTS* CODE-PART OPTIMIZE-ALL COMPILER-ERROR OPTIMIZE-LABEL OPTIMIZE-JMPCASE
OPTIMIZE-VALUE OPTIMIZE-SHORT COALESCE *CODE-POSITIONS*
#Y(OPTIMIZE-ALL-BETTER
#49Y(02 00 00 00 00 03 99 54 1D 25 67 01 A9 6F 01 01 67 01 AB 6F 01 01 A8 65 00 01 8C 01
2E 0A A8 A8 65 00 01 32 02 2F 19 05 A7 A9 32 01 2F 19 05 19 03
)
NIL *CODE-POSITIONS*
)
JMP JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE JMPIFNOT1 JMPIF1 FOR-VALUE JMPIFNOT JMPIF LIST
#.#'CONS #.#'CAR #.#'> #.#'CDR
) )
#Y(#:TOP-LEVEL-FORM-265 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILE-TO-LAP
REMOVE-OLD-DEFINITIONS
#Y(COMPILE-TO-LAP
#85Y(00 00 00 00 00 01 D5 60 37 06 C1 F8 6D 19 D5 60 37 06 C1 F8 30 19 10 02 9B 10 03 D9 5C
01 10 05 C1 10 06 00 10 07 00 10 08 00 10 09 00 10 0A 67 0B E1 A8 E2 7D 2A 00 E3 A8 E4
7D 2A 00 2E 10 12 06 2D 11 14 90 00 7F 01 E7 88 FF 04 E8 E9 2F 15 15 12 02 19 02
)
10. 0. *CODE-POSITIONS* *CODE-PARTS* (START) *CODE-PART* *CODE-INDEX* *DEAD-CODE*
*LABEL-SUBST* *CURRENT-VALUE* *CURRENT-VARS* *FUNC* FNODE 2. ANODE 3. TRAVERSE-ANODE
OPTIMIZE-ALL (START) COMPILE-TO-LAP START COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-266 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CONST-TO-LOADV
REMOVE-OLD-DEFINITIONS
#Y(CONST-TO-LOADV
#71Y(01 00 00 00 00 02 A8 8F 00 38 90 00 98 1F 2C 98 56 25 00 27 A8 90 01 9A 57 74 6E 89 9B
57 1A 04 A8 D6 D7 9B 57 5D 02 1A 09 A8 C3 1A 05 A8 D9 9A 57 58 14 30 A8 1A 04 DA DB 2F
07 16 01 7F 00 8E 00 48 16 01 99 19 02
)
#S(HASH-TABLE EQ (GO . 36.) (RETURN-FROM . 36.) (BLOCK-OPEN . 36.) (CALL2 . 36.)
(CALL1 . 36.) (CALL0 . 36.) (CALL . 36.) (COPY-CLOSURE . 36.) (BIND . 36.)
(SETVALUE . 36.) (GETVALUE . 36.) (JMPHASH . 26.) (VENV . 22.) (CONST . 13.) (STOREV . 1.)
(LOADV . 1.)
)
LOADV 0. (LOADV 0. 0.) JMPHASHV CONST-TO-LOADV "Illegal-in-GF" COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-267
#70Y(00 00 00 00 00 01 00 2A 04 D5 67 01 37 01 6D 64 2E 02 0B 00 00 D8 67 01 37 01 6D 64 2E 02
0B 00 01 D9 67 01 37 01 6D 64 2E 02 0B 00 02 DA 67 01 37 01 6D 64 2E 02 0B 00 03 DB 2E 07
DB A8 69 08 01 31 74 C6 19 02
)
1+ FUNCTION-CODES CALLS-CODE 1- ATOM CONSP INSERT-COMBINED-LAPS REMOVE-OLD-DEFINITIONS
#Y(INSERT-COMBINED-LAPS
#980Y(01 00 00 00 00 02 A8 8F 00 80 45 90 00 98 1F 38 83 00 00 14 A7 23 01 05 A7 24 02 80 50
16 01 99 57 56 1F 10 99 57 56 74 A7 23 03 80 51 A7 23 04 80 4C 16 01 A8 DC 30 A8 A8 A8
23 01 80 69 07 00 04 14 9B 57 58 14 30 AA 16 01 7F 00 8E 00 FF BB 16 01 A8 91 00 8F 01
83 76 90 01 98 1F 83 66 99 56 1F 80 8F 90 00 9A 56 56 25 08 80 79 16 01 1A 57 C5 1A 22
A8 23 01 79 C6 1A 1B C6 1A 18 16 01 99 57 56 57 57 56 1B FF AB A8 9A 57 56 74 23 03 63
A8 23 01 66 C5 14 9B 57 56 57 74 77 02 30 A8 A8 9A 57 57 1A FF 9E 07 00 03 1A FF 94 C9
1A 37 CA 1A 01 CB 14 9B 56 57 57 56 1C 02 7F 00 90 03 91 00 5F 30 AA 16 01 15 1A 1D CC
1A 1A CD 1A 17 CE 1A 14 AA A8 91 03 9D 56 75 32 02 20 76 30 A8 AA 9B 57 1A 82 80 00 14
E4 37 02 30 BA 75 8E 00 62 16 01 98 56 25 10 82 CC 9B 1A 0D D3 1A 82 21 A8 A8 7E 02 33
01 16 01 9A 57 F8 A9 D1 70 8E 00 6F 16 01 AA A8 23 12 64 D4 1A 82 01 A9 D1 70 8E 00 57
16 02 1A 82 A0 AB EC 9A 1A 81 00 AB EE A9 9E 57 56 57 74 5C 03 1A 80 F6 99 57 74 9B 57
74 EB 88 FF 63 9B 57 56 1F 07 9B 57 56 74 23 18 5D AB EF 9A 1A 81 6F 16 03 1A 82 6C 03
1C 1A 0A AA 9B 57 56 74 23 03 74 03 1D 14 9B 57 74 9D 57 56 57 74 77 03 30 A8 AA 9B 57
57 1A 81 E9 99 56 1F 82 43 99 56 74 A7 23 15 FF B0 A7 24 1B 1D 9A 57 56 1F 18 9A 57 56
74 A7 23 03 05 A7 24 04 FF B6 16 01 9A 57 56 57 57 56 1C FF B4 16 02 1A 82 17 AC 03 20
1A 80 41 AC 61 21 AB 9F 57 56 57 74 5C 03 1A 38 9B 57 56 74 A7 23 1F 65 A7 23 18 67 16
04 1A 81 F3 AC 03 23 1A 1E 9B 57 56 1F 80 FB 9B 57 56 74 A7 23 1F 6D A7 24 18 1E A9 9D
57 56 57 74 89 FE 15 AC 03 24 14 AB 5C 02 14 30 A8 AC 9D 57 75 30 AA 16 04 1A 81 BE 16
04 1A 81 B9 9B 57 56 1F 80 C6 9B 57 56 74 24 18 80 BE 9B 57 56 57 74 93 02 89 FE 80 B3
AB 61 26 AA 31 8A 14 5C 02 14 30 A8 AB 9C 57 1A 80 93 03 28 1A 1E AB 9C 57 74 65 00 01
88 FF 72 03 29 1A 10 03 2A 1A 0C AB 9C 57 74 65 00 01 88 FF 72 03 2B 14 AA 77 02 30 A8
AB 9C 57 57 1A 80 64 99 56 1F 81 58 98 57 74 9A 56 74 A7 23 1E 80 5C A7 23 22 FF 5C A7
23 25 FF 8C A7 24 1F 80 53 9B 57 56 1F 35 9B 57 74 65 00 01 88 FF 09 9B 57 74 65 00 02
89 FF 23 9B 57 57 56 1F 1D 9B 57 57 74 61 27 88 FF FF 8F 9B 57 57 56 74 24 18 0B 9B 57
57 56 57 74 A9 88 FE FF 8E AB 61 2C 9B 14 77 02 30 A8 AB 9C 75 30 AA 16 03 1A 80 F3 9B
57 56 20 FE E9 16 03 1A 80 E8 A9 61 2E 9A 57 74 5C 02 1A 80 A5 A9 61 30 9A 57 57 74 77
02 30 A8 A9 9A 1A 80 9B 90 01 61 2F 88 FF 69 A9 61 31 9A 57 1A 2E E7 1A 04 81 00 7F 02
90 02 61 32 88 FF 75 A7 23 12 0E AA 03 33 14 A9 5C 02 14 30 A8 AA 9B 1A 3E 16 02 1A 80
9A A9 03 34 1A 08 A9 90 01 9A 57 74 5C 02 14 30 A8 16 01 1A 80 85 29 2A 02 99 57 57 56
0B 00 00 99 57 57 57 57 0B 00 01 A7 69 35 01 64 01 00 30 67 16 01 90 02 98 57 57 75 00
14 30 AA 16 02 1A 80 59 99 56 1F 80 52 99 56 74 24 36 80 4B 99 57 74 61 37 89 FF 80 42
A9 61 38 9A 57 74 9C 56 57 74 5C 03 14 30 A8 A9 9A 57 75 30 AA 16 01 1A 2B 90 01 61 2D
89 FF 22 99 57 56 1F 1D 99 57 56 74 24 18 16 99 57 56 57 74 99 57 74 89 FE 0B 99 57 57
74 99 57 57 56 21 FF 1A 16 01 98 F7 57 F6 8E 01 FC 8A 16 02 99 19 02
)
NIL ATOM CONSP JMPIF JMPIFNOT JMPIFATOM JMPIFCONSP (PUSH)
#S(HASH-TABLE EQ (RET . 101.) (STOREC . 98.) (STORE . 95.) (JMPIFNOT . 72.) (JMPIF . 69.)
(PUSH . 66.)
)
((T . T&PUSH) (CONST . CONST&PUSH) (LOADI . LOADI&PUSH) (LOADC . LOADC&PUSH)
(LOADV . LOADV&PUSH) (GETVALUE . GETVALUE&PUSH) (CALL . CALL&PUSH) (CALL1 . CALL1&PUSH)
(CALL2 . CALL2&PUSH) (CALLS1 . CALLS1&PUSH) (CALLS2 . CALLS2&PUSH) (CALLSR . CALLSR&PUSH)
(CALLC . CALLC&PUSH) (CALLCKEY . CALLCKEY&PUSH) (CAR . CAR&PUSH) (CDR . CDR&PUSH)
(CONS . CONS&PUSH) (LIST . LIST&PUSH) (LIST* . LIST*&PUSH) (FUNCALL . FUNCALL&PUSH)
(APPLY . APPLY&PUSH) (COPY-CLOSURE . COPY-CLOSURE&PUSH)
)
((EQ . JMPIFEQ) (LOAD . LOAD&JMPIF) (CALL1 . CALL1&JMPIF) (CALL2 . CALL2&JMPIF)
(CALLS1 . CALLS1&JMPIF) (CALLS2 . CALLS2&JMPIF) (CALLSR . CALLSR&JMPIF)
)
((EQ . JMPIFNOTEQ) (LOAD . LOAD&JMPIFNOT) (CALL1 . CALL1&JMPIFNOT) (CALL2 . CALL2&JMPIFNOT)
(CALLS1 . CALLS1&JMPIFNOT) (CALLS2 . CALLS2&JMPIFNOT) (CALLSR . CALLSR&JMPIFNOT)
)
((NIL . NIL&STORE) (T . T&STORE) (POP . POP&STORE) (CALLS1 . CALLS1&STORE)
(CALLS2 . CALLS2&STORE) (CALLSR . CALLSR&STORE)
)
((LOAD . LOAD&STOREC)) ((SKIP . SKIP&RET)) #.#'EQ
#S(HASH-TABLE EQ (APPLY . 631.) (JMPHASHV . 587.) (JMPHASH . 587.) (JMPIFNOT . 571.)
(JMPIF . 571.) (UNWIND-PROTECT-CLOSE . 566.) (UNBIND1 . 529.) (JSR . 515.)
(JMPIFBOUNDP . 677.) (LOAD . 369.) (CONST . 134.) (PUSH-NIL . 37.) (NIL . 37.)
)
#Y(INSERT-COMBINED-LAPS-NILPUSHER-P
#49Y(01 00 00 00 00 02 90 01 31 01 1E 23 99 56 74 A7 23 00 0D 8E 00 07 9A 57 74 D6 88 FF
09 00 19 03 9A 56 57 56 19 03 A9 9B 57 75 30 AA C2 19 03 19 02
)
PUSH-NIL (PUSH) 1.
)
1. (NIL&PUSH) PUSH-NIL SYMBOL-FUNCTION (PUSH) CONST&SYMBOL-FUNCTION&PUSH STORE
CONST&SYMBOL-FUNCTION&STORE CONST&SYMBOL-FUNCTION EQ JMPIFEQTO JMPIFNOTEQTO CAR PUSH
LOAD&CAR&PUSH LOAD&CAR&STORE CDR LOAD&CDR&PUSH LOAD&CDR&STORE CONS LOAD&CONS&STORE (PUSH)
LOAD&INC&PUSH LOAD&DEC&PUSH LOAD&INC&STORE LOAD&DEC&STORE LOAD&PUSH (NIL) UNBOUND->NIL (PUSH)
JSR&PUSH JSR (UNBIND1) UNBIND (UNWIND-PROTECT-CLOSE)
#Y(INSERT-COMBINED-LAPS-1
#22Y(02 00 00 00 00 03 65 00 01 A9 65 00 02 6D 94 AB A9 A9 30 65 19 05) NIL
)
SKIP (RET) APPLY&SKIP&RET
) )
#Y(#:TOP-LEVEL-FORM-268 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NUM-OPERAND-LENGTH
REMOVE-OLD-DEFINITIONS
#Y(NUM-OPERAND-LENGTH
#27Y(01 00 00 00 00 02 A8 D5 8C 01 2D 09 A8 D7 8C 01 2D 06 C4 19 02 C1 19 02 C3 19 02) 128.
1. 32768. 2. 6.
) )
#Y(#:TOP-LEVEL-FORM-269 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ASSEMBLE-LAP
REMOVE-OLD-DEFINITIONS
#Y(ASSEMBLE-LAP
#839Y(01 00 00 00 00 02 A8 D5 8F 01 81 55 90 01 98 1F 2F 90 00 67 01 37 01 6D 64 8E 00 04 D7
D8 2F 04 DA 99 5A 57 74 DB A8 24 07 11 9B 57 74 DD 90 05 DE 37 06 31 59 5A 14 8C 01 2D
0C 99 25 0C 81 07 A7 A9 30 53 1A 81 12 DF 90 04 DE 37 06 31 59 5A 14 9C 57 74 7E 02 33
02 CB F7 90 03 5C 01 F9 1A 80 E5 A7 9C 1A 80 5B 98 1A 20 81 04 DB 9C 57 56 76 9C 1A 80
A7 A7 9C 57 74 6B 0D 32 02 33 1A 14 A7 9C 57 74 6B 0D 7E 02 33 00 14 7D 89 00 1A 80 B6
A7 31 89 F6 14 9C 57 1A 28 A7 9C 57 74 6B 0D 7E 02 33 00 14 9C 57 57 74 6B 0D 32 02 33
1A 0D A7 9C 57 74 6B 0D 7E 02 33 00 14 31 89 F6 14 9C 57 57 57 74 6B 0D 7E 02 33 00 1A
80 7A A7 9C 57 74 6B 0D 32 02 33 1A 03 A7 31 89 F6 81 04 DB 9C 57 57 56 76 9C 57 1A 34
A7 9C 57 74 6B 0D 7E 02 33 00 14 9C 57 1A 11 A7 9C 57 74 6B 0D 7E 02 33 00 14 31 89 1A
09 A7 9C 57 74 6B 0D 32 02 33 F6 81 04 DB 9C 57 57 57 56 76 9C 57 57 75 A8 30 A8 16 01
1A 23 A7 9C 57 74 6B 0D 7E 02 33 00 9B 57 75 8F 00 11 81 05 DB 99 56 76 A8 A8 30 A8 16
01 7F 00 8E 00 6F 16 01 AB A8 7E 02 33 04 AC A9 A9 AC 9F 57 78 03 30 A8 16 03 16 01 7F
01 8E 01 FE AB 16 02 5F D5 AA 5F 1A 80 9D A7 AA 30 53 1A 80 94 83 01 00 1F 74 A9 99 57
74 7E 02 33 02 98 56 25 0E 80 81 98 57 57 75 99 56 25 0F 29 98 1A 27 98 57 1A 23 98 57
57 1A 1E A9 E9 30 A8 AE 31 89 1A 80 50 90 01 A7 23 06 70 16 01 1A 80 4E A9 EA 30 A8 03
16 1A 38 00 14 5F A8 88 92 80 45 83 01 00 AC 90 01 7E 02 33 05 91 00 6D 4F AD 6F 01 34
E5 A8 E6 8C 02 2F 25 E7 A8 E8 8C 02 2F 45 90 01 A7 23 06 4A A7 24 14 12 A9 EA 30 A8 03
17 14 AF 32 02 33 FD 7A 08 16 01 1A 02 16 01 16 01 7F 01 1A FF B6 16 03 7F 01 A8 89 92
FF 65 16 02 99 16 02 1B FF 4F 00 2A 02 00 0B 00 00 C0 0B 00 01 98 2A 01 A8 2B 18 01 0B
00 00 A7 69 19 01 A8 69 1A 01 AC 5F 1A 81 03 83 01 00 1F 80 FB 64 05 01 99 57 74 32 02
33 0B 05 01 98 57 57 74 06 05 00 33 98 56 25 1B 80 E1 98 1A 80 54 98 1A 15 98 1A 80 B1
98 57 57 57 74 9C 1A 1C 98 57 57 57 74 9C 33 98 57 57 57 57 74 06 05 00 33 1A 80 BA 98
57 57 57 74 06 05 00 33 98 57 1A 24 98 57 57 57 74 9C 33 98 57 57 57 57 74 9C 1A 10 98
57 57 57 74 9C 33 98 57 57 57 57 74 06 05 00 33 98 57 57 57 57 57 74 9C 33 1A 80 80 98
57 57 57 74 9C 1A 08 98 57 57 57 74 06 05 00 33 98 57 1A 80 45 98 57 57 57 74 9C 33 98
57 57 57 57 74 9C 33 1A 31 98 57 57 57 74 9C 33 98 57 57 57 57 74 06 05 00 33 1A 1E 98
57 57 57 74 9C 33 9C 2A 01 99 57 57 57 57 56 0B 00 00 A7 69 1C 01 64 01 00 30 67 16 01
98 57 57 57 57 57 74 9B 33 1A 1D 98 57 57 57 74 9C 33 98 57 57 57 75 5F 1A 08 83 01 00
14 9D 33 7F 01 A8 89 92 74 16 02 7F 01 A8 89 92 FE F8 16 05 64 00 00 31 43 19 03
)
0. INSTRUCTION-CODES ASSEMBLE-LAP "ILLEGAL INSTRUCTION" COMPILER-ERROR #.INSTRUCTION-TABLE 1.
K #.SHORT-CODE-OPSIZE #.INSTRUCTION-TABLE-K #.SHORT-CODE-OPS O
#S(HASH-TABLE EQ (NLX . 230.) (NHL . 200.) (NBL . 185.) (NNL . 170.) (BL . 154.) (NL . 143.)
(NBN . 114.) (NNN . 92.) (BN . 83.) (NB . 66.) (NN . 55.) (L . 44.) (B . 41.) (N . 36.)
(K . 36.) (O . 265.)
)
NUM-OPERAND-LENGTH
#S(HASH-TABLE EQ (NLX . 2.) (NHL . 2.) (NBL . 2.) (NNL . 2.) (BL . 2.) (NL . 2.) (L . 2.))
#S(HASH-TABLE EQ (NHL . 8.) (NBL . 8.) (NNL . 8.) (NLX . 4.) (BL . 4.) (NL . 4.) (L . 1.))
-64. 63. -16384. 16383. 2. 6. 5. 4.
#Y(ASSEMBLE-LAP-NEW-BYTE #16Y(01 00 00 00 00 02 A8 07 00 01 58 0C 00 01 19 02) NIL)
#Y(ASSEMBLE-LAP-NUM-OPERAND
#56Y(01 00 00 00 00 02 A8 D6 8C 01 2D 23 A8 D7 8D 01 2D 20 D6 D8 D9 6E C7 AA 6E CA 6F 02
33 07 00 01 33 D9 DA 6E C7 A9 31 CA 14 07 00 01 33 19 02 99 1A 76 DB DC 2F 08 19 02
)
NIL 128. 32768. 7. 8. 0. ASSEMBLE-LAP "15 BIT" COMPILER-ERROR
)
#Y(ASSEMBLE-LAP-LABEL-OPERAND
#121Y(01 00 00 00 00 02 65 01 02 90 02 32 02 33 0C 01 02 91 01 6D 4F 65 01 02 6F 01 34 90
02 A7 23 01 80 44 A7 23 04 80 42 A7 24 07 80 4A DA 07 00 01 33 D8 07 00 01 33 DB DD
6E C7 A9 6E CA 07 00 01 33 DB DE 6E C7 A9 6E CA 07 00 01 33 DB DB 6E C7 A9 31 CA 14
07 00 01 33 C6 14 D8 6E C7 A9 6E CA 07 00 01 33 19 04 C2 1A 70 DA D7 DB 6E C7 AA 6E
CA 32 02 33 1A 5D 00 19 04
)
NIL 1. 7. 0. 2. 128. 8. 6. 24. 16.
)
#S(HASH-TABLE EQ (NLX . 198.) (NHL . 157.) (NBL . 138.) (NNL . 121.) (BL . 107.) (NL . 99.)
(NBN . 70.) (NNN . 54.) (BN . 41.) (NB . 21.) (NN . 13.) (L . 9.) (B . 6.) (N . 2.)
(K . 2.) (O . 227.)
)
#Y(ASSEMBLE-LAP-1
#25Y(02 00 00 00 00 03 65 00 01 A9 6D 4F 65 02 02 6F 01 34 AB A9 A9 30 65 19 05) NIL
) ) )
#Y(#:TOP-LEVEL-FORM-270 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DISASSEMBLE-LAP
REMOVE-OLD-DEFINITIONS
#Y(DISASSEMBLE-LAP
#449Y(02 00 00 00 00 03 00 2A 01 7B 03 00 00 98 2A 02 5F C0 0B 01 00 5F 00 0B 02 01 9A 2A 01
AA 2B 01 01 0B 00 00 98 2A 01 A8 69 02 01 A9 2B 03 01 0B 01 00 06 06 00 1C 81 50 06 05
00 F9 06 02 00 70 A7 D9 8C 01 30 2B DD 99 5A 14 90 00 99 57 74 A7 23 09 3B A7 DF 37 03
88 B3 3C A7 23 0B 3C A7 24 0C 80 67 A8 37 01 06 07 00 70 5C 02 16 03 1A 81 09 A7 DA 60
37 05 C6 F7 6E 59 A8 DA 9A 5A 14 6F 01 34 DC 9A 5A 14 A8 5C 02 16 02 1A 80 EC A8 5C 01
16 03 1A 80 E4 A8 9D 1A 4F A8 06 07 00 1A 49 A8 9D 1A 0D A8 9D 70 06 08 00 1A 80 43 A8
06 07 00 70 9E 1A 3B A8 9D 70 9E 1A 06 A8 9D 70 06 08 00 70 9F 1A 80 4D A8 9D 1A 20 A7
23 0D 52 A7 23 0E 52 A7 23 0F 57 A7 23 10 5B A7 23 11 5D A7 23 12 64 A7 24 13 18 A8 06
07 00 70 37 01 06 08 00 70 5C 03 16 03 1A 80 82 A8 9D 70 9E 1A 0F A7 23 14 76 A7 24 15
80 67 A8 9D 70 06 08 00 70 37 01 06 09 00 70 5C 04 16 03 1A 80 5F A7 B6 30 94 1A 0D 9D
2A 01 9D 70 AA 23 17 71 90 0E 99 5A 14 00 0B 02 00 A9 69 18 01 A8 30 67 AB A9 37 01 06
0B 00 70 06 05 00 5D 03 16 06 1A 2F 9C 70 5F D5 1A 0A 37 01 06 09 00 70 80 01 81 00 A7
AA 8D 01 30 70 16 01 AA A9 A9 31 43 5D 02 16 05 1A 0C A7 23 16 FF AE A7 23 19 54 00 16
03 F6 AB 99 76 80 05 16 01 06 06 00 1B FE B0 16 03 5F 8F 00 2D 06 03 01 1C 28 98 56 74
06 04 01 56 74 8D 01 2B 1C 06 03 01 74 80 00 06 03 01 57 0B 03 01 8F 02 0F 91 02 AA A9
7C A9 01 66 02 8E 00 53 8E 02 71 15 19 07
)
0.
#Y(DISASSEMBLE-LAP-NEXT-BYTE
#28Y(00 00 00 00 00 01 65 00 01 31 89 0C 00 01 07 01 01 74 07 01 01 57 0C 01 01 15 19 01)
NIL
)
#Y(DISASSEMBLE-LAP-NUM-OPERAND
#37Y(00 00 00 00 00 01 07 00 01 70 A7 D6 8C 01 2D 12 D7 D8 A9 6F 02 33 6F 02 35 07 00 01
70 32 02 33 19 02 15 19 01
)
NIL 128. 256. -128.
)
#Y(DISASSEMBLE-LAP-LABEL-OPERAND
#173Y(00 00 01 00 00 07 3A 01 80 6D 07 00 01 70 A7 D6 8C 01 2D 80 4E D8 A8 7E 02 33 00 14
D7 8C 01 2D 06 D8 A8 7E 02 33 00 D9 A8 6F 02 35 07 00 01 70 7E 02 33 00 14 8B 84 3B
D9 D9 D9 07 00 01 70 6F 02 35 07 00 01 70 6F 02 33 6F 02 35 07 00 01 70 6F 02 33 6F
02 35 07 00 01 33 14 32 02 33 1A 14 98 1A 11 A7 D7 8C 01 2D 77 D8 99 1A 6D 14 A8 30
AA 1A 35 98 16 01 F7 65 01 01 A9 6F 02 33 5F 65 01 02 8F 00 17 A9 99 56 74 8C 01 2E
0F A9 99 56 74 8C 01 2B 13 98 F7 57 F6 8E 00 69 A9 C5 70 80 00 8E 01 49 98 0C 01 02
98 56 57 19 05
)
NIL 128. 64. -128. 256.
#Y(DISASSEMBLE-LAP-PC->LABEL-A
#20Y(01 00 00 00 00 02 A8 D5 D6 AB 6D 86 6F 02 23 30 CA 58 19 02) STRING "L"
) )
#.SHORT-CODE-BASE #.SHORT-CODE-OPS #.#'>= #.INSTRUCTION-TABLE-K #.INSTRUCTION-TABLE O (K N) B
L NN NB BN NNN NBN NL BL NNL NBL NHL JMPHASH
#Y(DISASSEMBLE-LAP-1 #20Y(02 00 00 00 00 03 A8 07 01 01 70 07 00 01 58 0C 00 01 19 03) NIL)
NLX
) )
#Y(#:TOP-LEVEL-FORM-271 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CREATE-FUN-OBJ
REMOVE-OLD-DEFINITIONS
#Y(CREATE-FUN-OBJ
#402Y(02 00 00 00 00 03 D5 D6 AB D7 6E 2A D8 C4 44 D6 AE DA 6E 2A DB 31 A6 41 02 A7 A9 3F 02
16 02 40 D6 63 00 05 DC 6E 2A DB 31 A6 41 02 A7 A9 3F 02 16 02 40 D6 63 00 05 DD 8A 2A
80 78 C9 14 D6 63 00 05 DF 8A 2A 80 71 C9 14 D6 63 00 05 E1 8A 2A 80 6D C9 14 32 03 33
40 D6 63 00 05 DA 6E 2A D6 63 00 05 DC 6E 2A D6 63 00 05 DD 6E 2A D6 63 00 05 E1 6E 2A
8E 01 0E 8E 00 0B AA AA 6F 02 33 E5 8C 01 2D 80 4B 8F 01 0D 8E 00 0A A9 8B 84 06 AA E7
8C 01 2D 3E 8E 01 80 AE 8F 00 80 AA AA AA 6F 02 33 E7 8D 01 2D 80 9F D4 14 9B 5A 14 AB
32 02 33 1A 80 94 C2 1A FF 85 CB 1A FF 8C CF 1A 0A E2 D6 63 00 05 E3 8A 2A 74 C9 14 32
02 33 1A FF 83 D1 1A 56 D3 1A 56 03 15 44 D6 63 01 05 EB 6E 2A 6E 41 DB 31 A6 41 02 A7
A9 3F 02 16 02 40 D6 63 01 05 EC 6E 2A DB 31 A6 41 02 A7 A9 3F 02 16 02 40 45 1A 80 50
5F D6 B3 EF 6E 2A D6 B4 F0 6E 2A 1A 1D 14 31 34 1A 0F 16 03 1A 19 90 01 99 1F 77 90 01
8E 00 6D 99 14 80 04 16 02 7F 01 7F 00 99 20 69 16 02 A7 30 A3 16 01 1A 3A A8 A8 F1 6E
26 77 01 32 02 20 1A 3A C9 16 03 F6 D6 63 00 05 E1 8A 2A FF 82 3D 40 63 00 04 45 14 ED
D6 AF EC 6E 2A 37 01 6D 9D A7 D6 B1 EB 6E 2A 0E 19 1B FF 95 D6 B2 EF 31 2A 14 6F 03 20
D6 B1 DF 8A 2A FF BB 98 16 01 F6 6A 06 1D D6 AB F3 AA 31 2B 16 01 9A 19 03
)
:NAME FNODE 1. :CODEVEC #.#'LIST* 10. 256. 11. 12. 0. 20. 16. 13. 128. 15. 64. 6.
#(1. 7. 12. 16. 19. 21.) 5. 22. #(27. 32. 36. 39. 41.) #.#'VALUES 14. 9. :CONSTS
*COMPILING-FROM-FILE* 17. 18. SIMPLE-VECTOR MAKE-CLOSURE 2.
) )
#Y(#:TOP-LEVEL-FORM-272 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SIGNATURE
REMOVE-OLD-DEFINITIONS
#Y(SIGNATURE
#131Y(01 00 00 00 00 02 A8 6E 31 A9 6E 30 90 00 7F 01 D5 90 02 7F 03 6F 02 35 6F 02 33 90 01
7F 02 D5 90 03 7F 04 6F 02 35 6F 02 33 90 02 7F 03 D6 A8 6E C3 7F 04 AA AA D7 AB 6E C3
AA 8E 04 13 00 14 DA AE 6E C3 B1 B3 3F 08 19 08 90 0B D9 31 26 1A 24 90 08 7F 09 D5 90
0A 7F 0B 6F 02 35 6F 02 33 90 09 7F 0A D5 90 0B 7F 0C 6F 02 35 6F 02 33 D8 AF 8A C3 56
A3 14 A8 A9 AB 6F 02 33 31 3F 16 02 1A FF BC
)
256. 7. 0. 4. LIST 6.
) )
#Y(#:TOP-LEVEL-FORM-273 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PASS3
REMOVE-OLD-DEFINITIONS
#Y(PASS3
#57Y(00 00 00 00 00 01 67 00 5F 1A 27 83 01 00 74 D6 A8 D7 7D 2A 00 99 57 74 A8 D7 A9 6F 02
33 AA D7 AB 6F 02 33 6E 27 D6 A8 D7 7D 2A 00 31 28 16 02 7F 01 A8 89 92 55 00 19 03
)
*FNODE-FIXUP-TABLE* FNODE 2.
) )
#Y(#:TOP-LEVEL-FORM-274 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILE-LAMBDABODY
REMOVE-OLD-DEFINITIONS
#Y(COMPILE-LAMBDABODY
#33Y(02 00 00 00 00 03 A9 A9 6C 00 0E 01 1B 10 00 10 02 AA 2E 03 2D 04 11 DA A8 DB 31 2A 19
04 00 19 04
)
C-LAMBDABODY *NO-CODE* *FNODE-FIXUP-TABLE* PASS2 PASS3 FNODE 2.
) )
#Y(#:TOP-LEVEL-FORM-275 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILE-LAMBDA
REMOVE-OLD-DEFINITIONS
#Y(COMPILE-LAMBDA
#85Y(07 00 00 00 00 00 02 10 00 00 10 01 00 10 02 0E 03 10 04 00 10 05 00 10 06 00 10 07 04
19 10 08 04 1B 10 09 04 1D 10 0A 04 23 10 0B 00 10 0C 04 25 10 0D CE 10 0F CE 10 10 00
10 11 62 37 62 37 6C 12 67 0F 8B 84 05 15 12 10 19 08 62 38 E8 2F 12 16 01 1A 73
)
*COMPILING* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT* *ERROR-OUTPUT* *C-ERROR-OUTPUT*
*KNOWN-SPECIAL-VARS* *CONSTANT-SPECIAL-VARS* *FUNC* *FENV* *BENV* *GENV* *VENV* *VENVC*
*DENV* 0. *ERROR-COUNT* *WARNING-COUNT* *NO-CODE* COMPILE-LAMBDABODY (NIL NIL)
) )
#Y(#:TOP-LEVEL-FORM-276
#26Y(00 00 00 00 00 01 00 2A 01 C0 0B 00 00 D6 2E 02 D6 A8 69 03 01 31 74 C1 19 02) 0.
COMPILE-FORM REMOVE-OLD-DEFINITIONS
#Y(COMPILE-FORM
#32Y(06 00 00 00 00 00 D6 65 00 01 31 89 0C 00 01 14 6C 02 5F AF 77 02 AE AE AE AE AE 2C 07
03 19 07
)
NIL #:COMPILED-FORM SYMBOL-SUFFIX COMPILE-LAMBDA
) )
#Y(#:TOP-LEVEL-FORM-277 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILE
REMOVE-OLD-DEFINITIONS
#Y(COMPILE
#371Y(01 00 01 00 00 08 3B 01 14 3C 02 01 02 AC 85 00 3D AC 6B 02 8E 03 80 4B A7 89 51 80 6B
A7 D8 37 01 7D 76 05 1B 80 65 98 59 FB 9D 1F 09 90 05 24 0A 04 7A 02 7F 05 AC 8A 06 80
56 9D 1F 06 90 05 23 0C 80 A5 AC 8A 07 80 A0 CD 14 AD 5E 01 C1 1A 79 D9 DA AF 2C 03 06
AD 2E 07 1A 18 A7 D8 AE 31 7A 1A 32 8F 06 0E A7 D8 37 01 7D 76 03 1C 05 9B 20 5F 7A 01
AC 8B 06 43 DD AD 2F 06 8F 06 16 8E 01 5A A7 AD 31 74 1A 0D DE AE 5E 01 7A 01 1A FF 99
E0 AE 2F 06 9E 19 07 B5 E5 31 27 1A 80 59 B6 E6 31 27 1A 80 59 B7 E7 31 27 1A 80 59 B8
E8 31 27 1A 80 59 BA E9 31 27 1A 80 5B 62 43 61 26 31 27 1A 80 98 00 1A 80 A5 DF 80 00
8F 41 11 62 40 D8 A9 31 7A 04 46 1A 80 94 8E 42 6C 8E 41 6F 62 40 A8 31 74 04 46 1A 80
84 60 E3 E3 01 02 67 0F 01 03 B5 8A 07 FF A1 00 14 B6 8A 07 FF A1 00 14 B7 8A 07 FF A1
00 14 B8 8A 07 FF A1 00 14 5F BA 8A 07 FF A0 0E 15 10 16 00 10 17 04 13 10 18 04 15 10
19 04 17 10 1A 04 19 10 1B 04 1B 10 1C 04 1D 10 1D 04 1F 10 1E 04 21 10 1F 04 23 10 20
04 25 10 21 04 27 10 22 04 29 10 23 04 2B 10 24 04 2D 10 25 62 43 8A 07 FF 62 04 43 57
14 62 45 A8 6C 27 67 19 8B 84 FF 5C 8E 46 FF 6D 98 16 02 12 10 19 15
)
FUNCTION-NAME-P "Name of function to be compiled must be a symbol, not ~S" GET-FUNNAME-SYMBOL
TRACED-DEFINITION "~S: redefining ~S; it was traced!" COMPILE WARN UNTRACE2
"~S is already compiled." "Undefined function ~S" MACRO "~S is already compiled." LAMBDA
"Not a lambda expression nor a function: ~S" 0. *ERROR-OUTPUT* 5. 6. 7. 4. 8. *TOPLEVEL-DENV*
*DENV* *NO-CODE* *COMPILING* *ERROR-COUNT* *WARNING-COUNT* *COMPILING-FROM-FILE*
*C-LISTING-OUTPUT* *C-ERROR-OUTPUT* *KNOWN-SPECIAL-VARS* *CONSTANT-SPECIAL-VARS* *FUNC*
*FENV* *BENV* *GENV* *VENV* *VENVC* 1. COMPILE-LAMBDABODY
) )
#Y(#:TOP-LEVEL-FORM-278 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *TOPLEVEL-FOR-VALUE*)
*TOPLEVEL-FOR-VALUE*
)
#Y(#:TOP-LEVEL-FORM-279 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILE-TOPLEVEL-FORM
REMOVE-OLD-DEFINITIONS
#Y(COMPILE-TOPLEVEL-FORM
#316Y(01 00 01 00 00 08 3A 01 02 0E 00 10 00 C1 4D 81 28 A0 1F 80 F2 90 08 A7 8A 03 80 80 16
01 0E 0A 1C 80 ED 1A 80 EF AF 67 02 6C 03 A7 85 04 6D A7 DA 6E 27 37 01 27 4F 16 04 18
0E 1A 80 FB 9B 25 07 80 7C 00 1A 0F B3 DD 2F 09 91 0C 8F 00 74 98 57 1B 0C 98 56 14 37
01 27 FF AB 16 01 1A 35 DA A8 8F 00 1D 90 00 7F 01 0E 0A 1C 02 99 54 10 0A AA 67 00 81
07 14 6C 0B 27 FF 8B 11 16 01 8E 00 63 16 03 1A 0F A4 10 0C AD 67 0D 37 01 6D 64 95 0E
35 01 11 00 16 07 18 0E 1A 80 9D A7 2E 06 41 03 8F 02 FF 99 A9 24 10 1A B3 67 02 67 0F
6F 02 00 6D 5A 37 01 27 FF 4E 16 07 18 0E 1A 80 7A AA 88 58 66 16 04 0E 0A 1C 80 46 1A
80 48 00 16 03 18 0E 1A 80 64 00 1A 80 49 B2 67 15 2F 16 0E 17 1C 80 4F 14 30 8B B2 37
0B 7A 01 F6 F8 F9 FD FC 79 09 FE 7A 05 67 17 30 80 0E 12 1C 39 ED 67 12 31 43 76 2E 19
1A 30 AF 8A 03 FF 1A 0E 0A 1B 05 AF 84 11 FF B8 00 10 12 67 00 5F B4 0E 0A 1B FF B4 D3
78 02 2F 14 09 0B 0E 15 1B FF AC 0E 17 1B FF B1 0E 12 1B 47 00 11 4E 11 19 03
)
*TOPLEVEL-NAME* C-ERROR *VENV* VENV-SEARCH-MACRO SYMBOL-MACRO-P 0. FENV-SEARCH
#S(HASH-TABLE EQ (SYMBOL-MACROLET . 68.) (MACROLET . 68.) (COMPILER-LET . 68.)
(EVAL-WHEN . 68.) (LOCALLY . 68.) (PROGN . 5.)
)
1. TEST-LIST *TOPLEVEL-FOR-VALUE* SYMBOL-SUFFIX *FORM* C-FORM-TABLE COMPILE-TOPLEVEL-FORM
*FENV* MACRO C-CONSTANTP *PACKAGE-TASKS* ((VALUES)) COMPILE-LAMBDABODY *C-LISTING-OUTPUT*
DISASSEMBLE-CLOSURES *FASOUTPUT-STREAM* PROGN C-EVAL-WHEN-COMPILE
) )
#Y(#:TOP-LEVEL-FORM-280 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILE-FILE
REMOVE-OLD-DEFINITIONS
#Y(COMPILE-FILE
#652Y(01 00 00 00 80 1C 04 00 00 00 3A 04 02 7A 04 3C 03 3A 02 02 0E 04 10 04 3A 04 02 0E 05
10 05 01 04 B6 DB 2F 07 56 1B 0A B6 DD 37 02 6D EE 37 01 30 EE 09 0F 8F 0E 05 14 8B 13
80 EB 8F 0D 12 14 8A 13 0E B4 02 21 80 FA B4 37 02 30 EE 09 0D 7A 00 B6 E1 37 03 6D F6
50 82 22 CD 44 8E 04 80 EB B8 8A 13 80 EF 00 14 50 81 EF 8E 08 80 EB BC 8A 13 80 EF 00
14 8E 09 80 EE 00 10 0F 5F 9C 10 10 50 81 A7 8E 0C 80 E9 0E 15 1B 19 00 0F 16 0F 17 0F
18 0F 19 0F 1A 0F 1B 0F 1C 0F 1D 0F 1E 0F 1F 0F 20 7A 14 60 60 67 21 67 22 B7 8E 11 80
DA 0E 23 10 24 00 10 25 00 10 26 00 10 27 00 10 28 00 10 29 00 10 2A 0E 2B 10 2C 03 2D
10 2E 03 2D 10 2F 0E 10 54 1C 03 04 2F 54 10 30 02 10 31 61 2D 04 29 10 15 04 2B 10 32
04 2D 10 21 04 2F 10 22 04 31 10 33 61 34 62 5A 2F 35 0E 10 1C 80 B6 0E 36 10 21 61 37
61 38 2D 37 14 77 02 77 02 37 0B 7A 06 79 09 FE 7A 05 67 10 30 80 11 1A 80 96 DE B7 37
01 30 EE 1A 09 B5 02 21 74 B5 37 02 30 EE 09 0E DF B6 37 01 7C EE 02 7A 01 8F 0D FF 12
1A FE FD E0 B7 37 01 30 EE 1A FF 02 B8 E3 37 03 30 F6 1A FF 12 04 11 1A FF 0D BC E3 37
03 30 F6 1A FF 12 04 15 1A FF 0D B1 E3 37 03 30 F6 1A FF 0A 14 E6 62 22 67 12 2D 13 42
14 6D C0 6D C1 2C 07 14 0E 15 1C FF 05 1A FF 1B 67 23 B9 32 02 29 1A FF 1F 61 46 A9 6E
43 2F 35 8F 00 80 72 61 47 A8 6E 43 2F 35 16 02 1A 80 68 A7 61 3A 81 12 14 6C 3B 2F 3C
16 01 62 49 5F 61 39 37 01 6D 74 A7 61 39 89 FE 65 16 01 61 3D 62 5A 2F 35 61 3E 67 2E
67 2F 2C 03 35 8F 4D 39 0E 16 1C 08 61 3F 67 16 6E 43 2F 35 67 1B 67 1A 61 40 61 41 2C
04 42 0F 1B 1C 08 61 43 67 1B 6E 43 2F 35 67 18 67 17 6C 44 67 18 67 17 6C 45 8E 01 FF
87 8E 00 FF 8E 16 02 61 48 2E 35 67 2E 7D 84 3E 12 05 16 01 12 0C 16 05 51 05 00 10 1C
22 1A 05 05 00 10 1C 1B 67 10 37 01 31 6F 67 0F 37 01 31 6F 05 00 03 1B 0A 63 00 1D 30
F4 63 00 11 30 F4 52 11 16 01 11 16 01 51 05 00 05 1C 0E 1A 05 05 00 05 1C 07 63 00 00
37 01 31 6F 52 16 01 40 05 00 02 1C 05 14 37 01 31 6F 45 51 05 00 00 1C 0B 1A 05 05 00
00 1C 04 14 60 31 6F 52 16 05 12 02 19 06
)
:OUTPUT-FILE :LISTING :WARNINGS :VERBOSE *COMPILE-WARNINGS* *COMPILE-VERBOSE* (#".lsp")
SEARCH-FILE #".lsp" #".fas" #".lib" #".lis" :INPUT-IMMUTABLE #.#'VALUES :OUTPUT
*LIBOUTPUT-STREAM* *FASOUTPUT-STREAM*
"~&Listing of compilation of file ~A~%on ~@? by ~A, version ~A" *DATE-FORMAT*
GET-DECODED-TIME FORMAT *COMPILING* *FUNCTIONS-WITH-ERRORS* *KNOWN-SPECIAL-VARS*
*UNKNOWN-FREE-VARS* *CONSTANT-SPECIAL-VARS* *KNOWN-FUNCTIONS* *UNKNOWN-FUNCTIONS*
*INLINE-FUNCTIONS* *NOTINLINE-FUNCTIONS* *INLINE-DEFINITIONS* *USER-DECLARATION-TYPES*
*COMPILED-MODULES* *PACKAGE* *READTABLE* *ERROR-OUTPUT* *C-ERROR-OUTPUT* *FUNC* *FENV* *BENV*
*GENV* *VENV* *VENVC* *TOPLEVEL-DENV* *DENV* 0. *ERROR-COUNT* *WARNING-COUNT* *NO-CODE*
*TOPLEVEL-FOR-VALUE* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT* "~%Compiling file ~A ..."
C-COMMENT *KEYWORD-PACKAGE* VERSION QUOTE "EOF" #:TOP-LEVEL-FORM SYMBOL-SUFFIX
COMPILE-TOPLEVEL-FORM "~&~%Compilation of file ~A is finished."
"~%~D error~:P, ~D warning~:P"
"~%There were errors in the following functions:~%~{~<~%~:; ~S~>~^~}" :TEST #.#'EQUAL
NSET-DIFFERENCE "~%The following functions were used but not defined:~%~{~<~%~:; ~S~>~^~}"
SET-DIFFERENCE INTERSECTION
"~%The following special variables were not defined:~%~{~<~%~:; ~S~>~^~}"
"~%The following special variables were defined too late:~%~{~<~%~:; ~S~>~^~}" "~%"
) )
#Y(#:TOP-LEVEL-FORM-281 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DISASSEMBLE-CLOSURES
REMOVE-OLD-DEFINITIONS
#Y(DISASSEMBLE-CLOSURES
#46Y(02 00 00 00 00 03 00 2A 01 00 0B 00 00 A7 69 00 01 AB 99 33 16 01 64 00 00 6E 43 5F 1A
09 83 01 00 14 AC 2F 01 7F 01 A8 89 92 73 00 19 06
)
#Y(DISASSEMBLE-CLOSURES-MARK
#52Y(01 00 00 00 00 02 A8 07 00 01 58 0C 00 01 A8 6E 31 5F 1A 19 83 01 00 14 8B 07 10 A7
8B 06 0C A7 65 00 01 37 03 88 B3 03 A7 27 5B 7F 01 A8 89 92 63 00 19 04
)
NIL
)
DISASSEMBLE-CLOSURE
) )
#Y(#:TOP-LEVEL-FORM-282 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DISASSEMBLE-CLOSURE
REMOVE-OLD-DEFINITIONS
#Y(DISASSEMBLE-CLOSURE
#412Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 A8 30 8B A8 30 8B D6 A9 37 02 30 89 A9 6E 2F A9 30
81 A9 2E 02 41 08 A7 D8 8F 01 1F B2 30 8B D9 B3 37 02 30 89 A7 B3 30 81 DA B3 37 02 30
89 90 01 B3 30 81 7F 01 81 00 8E 01 61 16 02 B0 30 8B AE B1 30 81 DB B1 37 02 30 89 B0
30 8B AD B1 30 81 DC B1 37 02 30 89 B0 30 8B 8E 05 80 44 C9 14 B1 37 02 30 89 8F 04 80
56 AA 6E 41 B1 30 8B A7 B2 30 81 DF B2 37 02 30 89 A7 23 0B 06 E1 B2 37 02 30 89 E2 B2
37 02 30 89 AB A7 88 92 28 90 00 7F 01 B3 30 81 A7 88 92 0D CF 14 B3 37 02 30 89 1A 68
C8 1A FF B9 CE 1A 71 B1 30 8B E5 B2 37 02 30 89 16 01 1A 12 16 01 8E 03 6E 16 01 1A 09
B0 30 8B E6 B1 37 02 30 89 5F A8 1A 0C 90 00 A7 E7 6C 13 80 02 16 01 7F 00 98 20 71 16
01 A7 7C A3 00 A9 A9 6C 14 8F 00 80 A0 98 56 74 99 56 75 B4 30 8B A8 B5 30 81 D8 EA B6
6D 90 6F 01 34 1A 39 98 56 25 17 2B 60 99 57 56 1A 0F 60 ED 9A 1A 05 60 67 19 9A 57 57
74 32 02 33 14 30 00 1A 0C EF 99 57 1A 02 EF 99 57 74 AC 30 94 14 3F 02 1A 1A 00 1A 17
EB B7 30 88 81 01 A8 A8 8D 01 30 74 16 02 A7 B5 30 84 98 20 FF B7 00 41 02 8F 01 32 D8
E0 F0 B9 6D 90 6F 01 34 6F 01 31 1A 0E A7 B7 37 02 30 89 1A 1C EB B9 30 88 81 01 A8 A8
8D 01 30 74 16 02 F1 B7 37 02 30 89 A8 23 1A 60 A7 B7 30 81 16 04 7F 00 8E 00 FF 60 16
02 B0 30 8B 19 0B
)
*STANDARD-OUTPUT* "Disassembly of function " SIGNATURE 0. "(CONST " ") = "
" required arguments" " optional arguments" "Rest parameter" "No rest parameter"
" keyword parameter" 1. "s" ": " "." ", " "Other keywords are allowed."
"No keyword parameters" 35. WRITE-TO-SHORT-STRING DISASSEMBLE-LAP 6. #\Space
#S(HASH-TABLE EQ (CONST&SYMBOL-FUNCTION&STORE . 32.) (COPY-CLOSURE . 32.)
(COPY-CLOSURE&PUSH . 32.) (CONST&SYMBOL-FUNCTION . 32.) (CONST&SYMBOL-FUNCTION&PUSH . 32.)
(CONST&STORE . 32.) (BIND . 32.) (GETVALUE&PUSH . 32.) (GETVALUE . 32.) (SETVALUE . 32.)
(CONST&PUSH . 32.) (CONST . 32.) (JMPIFNOTEQTO . 32.) (JMPIFEQTO . 32.)
(CALL2&JMPIF . 32.) (CALL2&JMPIFNOT . 32.) (CALL2&PUSH . 32.) (CALL2 . 32.)
(CALL1&JMPIF . 32.) (CALL1&JMPIFNOT . 32.) (CALL1&PUSH . 32.) (CALL1 . 32.) (CALL0 . 32.)
(CALL&PUSH . 27.) (CALL . 27.) (CALLSR&JMPIF . 12.) (CALLSR&JMPIFNOT . 12.)
(CALLSR&STORE . 12.) (CALLSR&PUSH . 12.) (CALLSR . 12.) (CALLS2&JMPIF . 7.)
(CALLS2&JMPIFNOT . 7.) (CALLS2&STORE . 7.) (CALLS2&PUSH . 7.) (CALLS2 . 7.)
(CALLS1&JMPIF . 1.) (CALLS1&JMPIFNOT . 1.) (CALLS1&STORE . 1.) (CALLS1&PUSH . 1.)
(CALLS1 . 1.)
)
256. FUNTABR-INDEX STRING 42. "; "
) )
#Y(#:TOP-LEVEL-FORM-283 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DISASSEMBLE
REMOVE-OLD-DEFINITIONS
#Y(DISASSEMBLE
#95Y(01 00 00 00 00 02 A8 85 00 10 A8 89 51 1F A8 2E 02 F7 14 D8 37 01 8B 76 17 F7 99 1F 07
90 01 24 04 02 7F 01 A8 8A 07 0D C5 14 A9 5E 01 C1 1A 79 99 59 F7 1A 65 A8 8A 06 20 A8
DB 6E 27 A9 DC 6E 27 AA DD 6E 27 AB DE 6E 27 AC DF 6E 27 AD E0 6E 27 AE E1 6E 27 2C 07
0D F7 A8 2E 0E 99 19 02
)
FUNCTION-NAME-P "Undefined function ~S" GET-FUNNAME-SYMBOL TRACED-DEFINITION MACRO
"Cannot disassemble ~S" 0. 1. 4. 5. 6. 7. 8. COMPILE-LAMBDA DISASSEMBLE-CLOSURE
) )